SHIARP | 


罰 SHARP 


COMPUTER 


| SOFTWARE 


へ ヘ パ / / 学 みみ zz ・ ヘ バ / ん ルー 用 


ラン ゲー ジ シ リー ズ 


FORTRAN 


CZ-115LF 


コー ザー ズ マ ニュ アル | 


FORTRAN 
ユー ザー ズ マ ニュ アル 


COPYRTIGHT 


Copyright (C), 1979, 198 の , 1981, 1982, 1983 by ran D・ 
Kett1eborough.  A11 rights reserved wor1dwide. NO Part oE 
the pub1ication may be reproduced, transm1 ユ tted。 tranSCribed, 
stored in a retrieva1 system or trans1ated into any human Cr 
computer 1anguade 1n any Form Or by any mean8。 e1 ecCtrOn1iC, 
mechanica1, magne モ iC, Optica1, chemica1, manua ユ 1 Or 
otherwise, without the expres8 written permission ofF Tan D・ 
Kett1eborouqgh・ 


TRADEMARKS 


NEVADA FORTRAN (tm), NEVADA COBOL. (tm), NEVADA PILOT ( tm) , 
NEVADA EDIT (tm) and E11is Computing(tm) are trademarKg OF 
E11is Computing, Tnc. CP/M is a registered trademarK Of 
Digitia1 Research, TnC・ 


DITSCLATIMER 


A11 E11ig Computing Computer progdrams are digtributed on an 
"AS TS" basis withOout warrantY・ 


E11is Computing, Tnc. makes no warranties, GXDFeG8Sed Or 
tmp1ied, nclLuding, but not 1imited to。 the imp1ieq 
warranties oFE merohantabi1ity and Fitnesg Or a par1Cu1ar エ 
Purpose. Tn no event wi11 E11is Computing, Inc. be 11iab1e 
for consequentia1 damages even if E11is Computinq, Tnc. hag 
been advised of the possibi1ity ofF such damage8・ 


本 書 は 、 株 式 会 社 ラ イフ ポー ト が Ellis Computing.Inc. の 許可 を 得 て 
言語 シリ ー ズ と し て 翻訳 / 構 成 し た 「FORTRAN ユ ー ザ ー ズ ・ マ ニュ ア 


ル ( 日 本 語 版 )」 で す 。 本 書 の 内 容 の 一 部 また は 全部 を 無断 転載 する こ 
と は 法律 で 禁止 され て いま す 。 御 注意 下さ い 。 


CONTENTS 


@ FORTRAN 
1. FORTRAN の 起動 一 ーーーーーーーーー- 2? 
1.1 FORTRAN シス テム の 構築 ーーーーーーーーーー- 3 


1.1. fP 貞和 思 間 NE の 牲 林 amn ニューーーー…ー 革 も 全 ーー を 3 
1.1.2FORTRAN シス テム の 構築 


2. プロ グラ ム の コン パイ ル と 実行 
。 
訂 
2 
2 


に | 


6 
・1 プロ グラ ム の 作成 一 一 ーー 一 - 6 
、2 プロ グラ ム の コン パイ ルーーー ニ ーー ニーーーーーーーーーー ュ ーーーー 6 
・3 コン パイ ル 時 の オプ ショ ンーーーーーーーーーーー 一 ーー 7 
・4 プロ グラ ム の 実行 一 一 一 10 
・5 COM ファ イル (実行 形式 の ファ イル ) 10 


3. FORTRAN 言語 の 文法 


FORTRAN で 使え る 文字 一 ーーー 一 12 
FORTRAN の 文 と 行 と プロ グラ ム 単 位 一 ーーーーーーー 一 - 14 
FORTRAN に の 交 - 一 ーーーーーー ーー ニー ーー ニーー ーー ーー 44 
複 文 - 
FORTRAN プロ グラ ム の 書き 方 ーー ニーー ーーーーーー- 15 
COPY 文 
OPTIONS 文 


4. 数 , 定数 , 変数 , 型 , 共通 ブロ ッ クーーーーーー 9 


4.1 数 の 内 部 表現 
4.2 数 値 の 範囲 
4.3 定数 

4.3.1 整 定数 と 実 定 数 
4.3.2 文 字 定 数 
4.3.3 論 理 定数 
変数 名 
型 の 指定 (宣言 ) 
DATA 文 
共通 ブロ ッ ク (COMMON 文 ) ーー 23 
IMPLICIT 文 


Co の の の の の の ぐ 
へ の の らら oo 一 


ト S 一 


4.4 
4.5 
4 .6 
4.7 
4.8 


CONTENTS 


5. 式 25 
5. 1 演算 子 の 結合 の 強 さ 25 
5.2 実 の 評価 一 一 ーーーーーーーーーーーーーーーーーーーーー 26 
5.3 整数 の 演算 26 
5.4 実数 の 演算 27 
5.5 論理 型 の 演算 27 
5.6 演算 に 於 ける 型 の 混合 28 
6 . 制御 文 29 
6. 1 単純 GO _ TO 文 一 一 ーーーーーーーーーーーーーーーーーー 29 
6.2 計算 型 GO TO 文 一 ーー 一 ーー 一 一 29 
を 8 拓 味 貞 て 00 PO 完 一 ーー ニ ーー まこ エー に トー 30 
攻 20 半 答 生生 6 
6.5 算術 IF 文 二 一 一 一 ーー 一 ーー 一 31 
6.6 論理 IF 文 一 一 ーーーーーー- 31 
7 一 Tf 生 内 LSE 一 END 王 島 一 ーーーー ーー ーーーーーーー ーー 932 
6.9 DO ズーーーーーーーー ニ ーーー 一 ーーーーーーーーーーー 33 
午 給 間 遇 科す 間 旨 ーー 94 
本 但馬 半 際 ド 乏 沈 き デニ ニーーーー ニ ュー バト ーー に EC 36 
信人 eee 座 5 人 ーー ニー ニニ ーー ニー ニー ニー ニー ニニ ーーー ニーーー 一 8 
6 .12 プロ グラ ム 実 行 の トレ ー ス ーーーーーーーーーーーーーーーーーー 一 一 一 - 36 
人 
7. プロ グラ ム を 終了 させ る 為 の 制御 文 一 一 一 39 
PP 
本 
人 全 抽 半 ニニ ニュ ーー ニニ ーー ニニ ーーーー ニ ーー ニニ SRC に よー 46 


8 . 配列 一 一 ーー ーー 41 


8.8 配列 の 宣言 (DIMENSION 文 ) ーーーーーーーーーーーー- 41 

8. 2 添字 一 ーーーーーーーーーーーーーーーーーーーー ーーーーーー 一 42 

9. 副 プ ログ ラム 43 
を 移 衝 me 殺人 9 抹 コニーーーーー ュ ーー ニニ ーー に トニ ーー に ーー 48 


9 . 2 FUNCTION 文 二 ーーーーーーーーーーーーーーーーーーーーーーーーー 一 44 


CONTENTS 


9.3 CALL 文 44 
9 . 4 RETURN 文 二 一 ーー 45 
9.5 多重 リタ ー ン 文 二 ーー 一 ーー 45 
9. 6 BLOCK DATA 文 二 ーー 一 ーー 一 47 

10. 入出 力 48 
10. 1 FORTRAN の 入出 力 文 二 一 ーーーーーーーーーーーーー- 48 
10.1.1 一 般 的 な 説明 一 一 ーー 一 ーー 一 - 48 
10.1. 2 入出 力 並 びーーーーーーーーーーーーーーーーーーーーーーーー 一 - 49 

10. 2 READ 文 51 
10.3 WRITE 文 52 
10.4 MEMORY か ら MEMORY へ の 入出 力 文 二 一 ーーーーーーーー- 53 
10.4.1 DECODE 文 一 ーーーーーーーーーーーーーーーー 53 

10.4. 2 ENCODE 文 一 ーーーーーーーーーーーーーーーー 54 

10. 5 FORMAT 文 と 書式 記述 子 一 ーーーーーーーーー- 55 
10.5. 1 X 変 換 (wX) 一 ーー 一 - 55 
10.5.2 1! 変換 ( lw) 一 ーーー 一 ーー 一 一 - 55 

10.5. 3 A 変 換 (Aw) ーーーーーーーーーーーーーーーーー 一 一 56 
10.5.4 ン 区 切り 一 ーー 一 56 
10.5.5 Z 区 切り 一 ーー 一 一 56 

10.5. 6 し 変換 (Lw) 一 一 一 ーー 一 ーーーーーーー 56 

10.5. 7 変換 (Tw) 一 ーー 一 ーー 一 一 - 57 
10.5.8 K 変 換 (Kw) 一 ーー 一 57 
10.5.9 F 変 換 (Fw. d) 一 一 ーーーーーーーー 58 
10.5.10 変換 (Ew. d) 一 ーーーーーーー 一 一 58 
10.5.11 D 変 換 (Dw. d) 一 ーー 一 - 59 
10.5.12 G 変 換 (Gw. d) 一 ーー 一 ーー 一 - 59 
10.5.13 欄 記 述 子 の くり 返し 一 ーーー 一 60 
10.5.14 文字 列 の 出力 一 ーーー 一 ーー 一 60 

10.6 自由 形式 の 入出 力 文 二 一 - 61 
10.6.1 入力 ーーーーーーーーーーーーーーーーーーーーーーー 61 

10.6. 2 出力 一 一 一 ーーーーーーーーーーーーーーーーー- 61 

10..7 書式 な レ 入 出力 文 ニ ーー ニーーー 一 ーー ーーーーーーー 62 

10、 8 午 自 条 間 生 . 丈 ーーー ニキ ーーー- 69 

9: : 王 具 回 時 梓 | ーー ニーーー、 69 

10: 溢 自陣 前 隊 本 

10.11 FORTRAN の 入出 力 と CP/M の ファ イル ーーーーー- 64 


10.12 コン ソー ル 入 出力 に 太 け る 特殊 文字 一 ーーーーーーーー 65 


CONTENTS 
11. シス テム が 定義 し た サブ ルー チン 及び 関数 ee 


ーー つき ーー デー ーー ニー ニニ ドー ーー ニー ニー ニー ニー 

f1. 2 CHAIN 一 一 ーーー ーーーーーー 7 
11. 3 CIN 一 ーー 一 ーーーーーーーーーーーー-- 68 
11. 4 CLOSE 一 ーーー 

11. 5 CTEST 一 ーーーーーーーーー の 
11. 6 DEILAY 一 ーー ーー 0 
11. 7 DELETEー ーー 一 一 還 
11. 8 己 XIT 一 ーー ーー ーー ーー ーー ーー 一 e 
11. 9 LOAD 一 ーー 一 に 
11.10 LOPEIN 一 ーー 一 い 
11.11 MOVE 一 ーー ーー ーー ーー ーー 一 
11.12 OPEN 一 ーーーーー ーー 一 
11.13 OUT 一 ーー ーー ーー 2 
11.14 POKE ーー ーー 一 
11.15 PUTー 一 ーー ーー ニー ーーーーーーーーーーーーーーーーーーーーーーー 一 と 
11.16 RENAME ーー ーーーーー ーー 一 
11.17 RESET 一 ーー 一 ーーーーーー ーー 一 一 と 
11.18_ SEEK 一 3 
11.19 SETIO 一 ーー ーー ーー 一 し 
11.20 CAL ヒー ーー ーー 一 ーーーーーーーーーーーーーーーーー 一 me 
11.21 CBTOF 一 一 ーーー 一 ーー 一 ーーーーーーーーーーーーーー- 76 
全 ーー ニーーー ニ ーー ーー 77 
前 に ーー ニーーーーーーーーーーーーーーーー デ ーー ティ ーーー ニー ニャ ーー 77 
11.24 INP 78 
ーー デー ニー ドア 調 


ーー 
11.26 D 78 


CONTENTS 
@ APPENDIX 


で oO 一 


実行 時 の エラ ー メ ッ セ ー ジ 
コン パイ ル 時 の エラ ー 
アセ ン ブ リ 言語 と の イン ター フェ ー ス 一 一 
その 他 の 注意 


4.1 NORTH STAR 浮動 小数 点 ボ ー ド の 使い 方 
4 . 2 FORTRAN と ANSI66 FORTRAN の 違い 


@ ASSEMBLER 


4. 擬似 オペ レー ショ ン 


概 容 一 一 ーーーーーーーーーーーーーーーーー 


操作 法 


2.1 ソー ス フ ァ イル の アセ ン ブ ル 
2.2 オブ ジェ クト の ロー ド と 実行 


ソー スプ ログ ラム の 形成 


3.1 ラベ ルフ ィ ー ル ド と ラベ ル 
3.2 オペ レー ショ ン フ ィ ー ル ド と オペ レー ショ ン 
3.3 オペ ラン ド フ ィ ー ル ド と オペ ラン ド 

3.3.1 レジ スタ 名 
.2 ラベ ル 名 


3 8 

3.3 
3.3.4 式 
3 .3.5 上 位 バ イト 下位 バイ ト 
3.4 コメ ント フィ ー ル ド と コメ ント 
3.5 行 番号 

3.6 レジ スタ 名 と その 値 


4. 1 EQU 


120 


123 
123 


127 


CONTENTS 


4.2 ORG 127 
4 . 3 X ビ Qーー ーー ーーー ーー 一 127 
4 . 4 DS, RES 一 ーー 一 128 
4. 5 DB 一 ーー ーーー 一 - 128 
4. 6 DW 一 ーー ーー ーーーーーーー 一 一 -128 
4.7 DDB 128 
4 . 8 ASC, ASCZ 一 一 ーー 一 - 129 
4. 9 ASCF 129 
4 .10 IF< 式 >ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー- 129 
4 .11 IFLS 129 
間 0 0 
BSIG 0 ーーーーーー ニ ーー 40 
時 3 ニー ニー ニー ニーーーーー ニ ーー ペーー= 
4.15 戸 AGE 一 ーーーーーーーーーーーーーー 一 ーーーーーーーーー 130 
4 . 16 END 一 ーー 一 ーーーーーーーーー 130 
5. エラ ー と メッ セー ジ 131 
5. 1 アセ ン ブ ラ 起動 時 の エラ ー - 一 ーーーーーーーーー- 131 
5. 2 構文 上 の エラ ー 一 ーーーーーーーーーーーーーーーーーーーーーー 131 


は じ め に 


この マニ ュ ア ル で は この シリ ー ズ FORTR AN の 使用 法 に つい て 説明 し て あ 
り ま す 。 こ の シリ ー ズ FORTRAN は , 8080 プ 8085 プ Z 80 マイ クロ プロ 
セッ サ の 為 の FORTRAN で す 。 FORTRAN は , コン ピュ ー タ 言語 と し て は 
最も 一 般 的 に 使用 され て いる も の で す が , いく つか の 異な っ た 仕様 の も の が あ 
り ま す 。 こ の シリ ー ズ FORTRAN は , FORT W, 或 は ANSI 66 FORTRAN, 
JIS6000 レベ ル の サブ プ セ ッ ト で す が , マイ クロ コン ピュ ー タ の 人 為 に 幾つ か 
の 拡張 が な され て いま す 。 

この マニ ュ ア ル で は , ヴェー ジョン 3.0 以上 の この シリ ー ズ の FORTRAN 
の 使用 法 に つい て 説明 し て あり ます が , FORTRAN 言 語 の 文法 に つい て は , 
以下 に 紹介 する 参考 書 を 参照 し て 下さ い 。 


oeFORTRAN 入 門 浦 昭二 編 


培風館 「 電 子 計算 機 の プロ グラ ミン グ 」 シ リー ズ 1 和 巻 


この マニ ュ ア ル で も , 文法 を よく 知ら な い 方 の 為 に , 上 記 の 本 を 〔 参考 書 
28 ペー ジ 参 照 〕 と 引用 し ます 。 も ちろ ん , FORT WM に 精通 な さっ て そる 方 
は , 参照 する 必要 は あり ませ ん 。 参 考 書 の ペー ジ 数 は 〔 改訂 版 〕) に 於 ける も の 
で が 8 


1・FORTRAN の 起動 


@ 必 要 な ハー ドウ ェ ア 

(1 8080 プ 8085 プ Z80 マイ クロ プロ セッ サ 

⑫⑰ 最低 48 KK バイ ト の フリ ー エ リア (CPMーOS を 除く ) 
③ 一 台 以 上 の フロ ッ ピ ーー ディス ク ド ラ イプ ブ 


@ 必 要 な ソフ トウ ェ ア 


⑱⑳|@PZWM" オペ レー ティ ング シス テム 
② テキ スト ・ エ ディ タ 


@FORTRAN マス タ ・ デ ィ ス ク 


(MOIRT。 GOM ts FORTRAN コ ン パ イラ で す 。 

0、PRUNCOM……"" 実行 時 ルー チン で す 。 

⑧ CONEIG. COM …… 環境 の 設定 の 為 に 使用 し ます 。 

(⑳3RIRRIGOIGSO… の mr や アー エラ ー メ ッ セ ー ジ が 入っ て いま す 。 

1RR 表 DE ME で や ゃ mm…… FORTRAN に 関す る 最新 の ニュ ー ス が 入 
っ て いま す 。 

(6 ASSM.COM………… アセ ンプ ブラ で す が , FORTRAN コ ン パ イ 
ル 時 に も 必要 で す 。 


その 他 に , いく ら か の サン プル プロ グラ ム が 入っ て いま す 。 
@FORTRAN 起動 の 準備 


も し , マス タ ・ デ ィ ス ケッ ト が 書き 込み 禁止 に な っ て いな か っ た ら , 書き 込 
み 禁 止 に し て 下さ い 。 
区 に CPM の PIP コマ ンド を 使用 し て マス タ ・ デ ィ ス ケッ ト の コピ ー を 
: 作 MI スタ ・ デ ポス ケッ ド は し まっ て くだ さい 。 


ー ク 2 クー 


1.1 FORTRAN シ ステ ム の 構築 


1 .1.1 FORT. ERR の 作成 


CONF ITG. COM を 起動 し て , ERRORS フ ァイル か ら , FORT. ERR 
ファ イル を 作成 し ます 。 す な わ ち , CP/M の コマ ンド 待ち 状態 の 時 に 
CONF IG ン と し ます 。 ERRORS フ ァイル の 存在 する ドラ イブ と, FORT. 
ERR ファ イル を 作成 する ドラ イブ を 尋ね て きま すか ら , ドラ イブ 名 を 答え ま 

・ す 。 こ の 作業 は ERRORS フ ァイル 内 の テキ スト (エラ ー メ ッ セ ー ジ ) を 変更 
し な いか ぎり は , 再び 行なう 必要 は あり ませ ん 。 CONF IG コマ ンド を 実行 す 
る と , 自動 的 に 次 の 節 の 説明 の 様 に , シス テム の 構築 が は じ ま り ます 。 


NEVADA FORTRAN CONF IGURATION PROGRAM (03MAR83 ) 


DO YOU MANT TO CREATE THE ERROR FILE (Y/ZN)? YU 
MHICH DRIVE CONTAINS THE FILE "ERRORS"? BU 

TO MuHICH DRIVE SHOULD "FORT.ERR" BE MRITTEN? BU「 
+++ CREATING "FORT.ERR" +++ 


まそ そそ そそ すす キキ キキ キミ スミ オ キキ キキ す すす すす すす キキ キキ キキ キミ すえ ええ も も キキ すそ も も も も 3 は 3 
+++ FILE "FORT.ERR" DONE +++ 


+++ CONFIGURING NEVADA FORTRAN COMPILER +++ 


MHICH DRIVE CONTAINS THE FILE "FORT.COM'? 


SPECIFY DRIVE "Z" TO SKIP THIS STEP: Bu 八 
( 省略 値 を 変更 し な い 場 合 は Z で よい ) 


THE NUMBER IN [上 ] IS THE CURRENT DEFAULT FOR EACH PARAMETER 
TO _ USE THE DEFAULT, JUST HIT RETURN/ENTER, TO CHANGE . ENTER 
THE NEM VALUE IN DECIMAL 


SYMBOL TABLE SIZE C00050] り 

LABEL TABLE SIZE C00050] り 

NUMBER OF ARRAYS 上 015] り 

NUMBER OF NESTED DO LOOPS C005] り 
IF-THEN-ELSE NESTING DEPTH C005] り 


3.7 を 参照 し て 変更 し て 下さ い 。 
ォ プ ショ ン に モ それぞれ 相当 し ます 。 


ー ワ ァ と ピピ の 


THE FOLLOMING 3 PARAMETERS HAVE TO DO MITH EXPRESSION EVAULATION 
THE MORE COMPLEX THE STATEMENT TO BE EVALUATED, THE LARGER THE 
FOLLOMING 3 PARAMETERS MUST BE. THE DEFAULTS SHOMN SHOULD BE 
STATISFACTORY FOR MOST EXPRESSIONS 


NUMBER OF TEMPORARIES USED DURING EXPRESSION EVALUATION 上 015] り 
NUMBER OF 0OP-CODE STACK VARIABLES EC040] り 
NUMBER OF OPERAND STACK _ VARIABLES 上 040] り 

( エ , O, P., オプ ショ ン に それ ぞ れ 相当 し ます 。 3.7 を 参照 し て 下さ い ) 
生生 TO BE USED TO SURROUND HEX CONSTANTS IN STRINGS CN\] い 

ー ミ ナル に よっ て は 王 。 本 文中 で は へ ぐ バ ックス ラッ シュ > と な っ て いま す 。) 

0 NMK CONSOLE OUTPUT DEVICE HANDLE LOUER CASE LETTERS? (Y/ZN〉) YU 
UHICH DRIVE CONTAINS THE FILE "FRUN.COM"? (て コン ソー ル 出 力 に 小文字 が 可能 か ) 
SPECIFY DRIVE "Z* TO SKIP THIS STEP: BU 

( 省略 値 を 変更 し な い 場 合 は Z で よい ) 
+++ CONF IGURING NEVADA FORTRAN RUNTIME PACKAGE +++ 


YOU CAN SPECIFY ONE OF 3 MAYS THAT THE RUNTIME 
PACKAGE CAN DO CONSOLE I/0. EACH HAS ITS ADVANTAGES. 
CONSULT YOUR CPZM MANUALS FOR THE DIFFERENCES OF EACH 
ENTER* 

0 TO USE DIRECT BIOS 1/0 

2 TO USE CP/M FUNCTIONS 1 & 2 

3 TO USE CP/M FUNCTION 6 


2U  CP ン M 1.4 の 場合 は 2 を 選ん で 下さ い 。 
CAN YOUR CONSOLE OUTPUT DEVICE HANDLE LOMER CASE LETTERS 


DURING PROGRAM EXECUTION? (Y/ZN) YU 
ュ ン ソー ル に 小文字 出力 が 可能 か ? 


DO YOU HAVE A NORTH STAR FLOATING POINT BOARD IN YOUR 
SYSTEM? (Y/ZN) NU 

ノー スス ター 社 の 演算 ポー ド を 使用 し て いる か ? 
+++ ALL DONE +++ ー 4 一 


1.1.2 FORTRAN シ ステ ム の 構築 


FORT. ERR の 作成 に 引 続 い て , コン パイ ル ・ オ プシ ョ ン と 実行 時 レー チ 
ン の パラ メタ の 省略 値 の 設定 を 行ない ます 。 オ プシ ョ ン 名 と その 省略 値 を 表示 
し て 入力 を 促し ます の で , その 省略 値 を その まま 認め る な ら ば , ご を, 変更 し 
た けれ ば 新しい 値 を 入力 し て ソノ を 続け て 入力 し て 下さ い 。 1 6 進数 で 答え る 場 
合 と マン N で 答え る 場合 が あり ます が , 表示 され て いる 値 を その まま 認め る 時 
は ププ だ け で よろ し い 。 コンペ パイル ・ オ プシ ョ ン に つい て は , 2. 3 節 と 3. 7 
節 を 参照 し て 下さ い 。 小 文字 の 使用 を 許す か どう か と いう 問い が あり ます が , 
も し コン ソー ル か ら の 小文字 入力 が 可能 な ら Y を , 不可 能 な ら ば N を 入力 し て 
下さ い 。 ( 例 を 参照 し て 下さ い 。 ) 


続け て 実行 時 ルー チン の パラ メタ の 省略 値 を 設定 し ます 。 コ ン ソ ー ル の 入 
出力 に , どの BDOS コー ル を 使用 する か , 小文字 が 出力 で きる か , ノー スス 
ター 社 の 浮動 小数 点 ボ ー ド を 使用 する か に つい て 答え ます 。 ( 例 を 参照 し て 下 
さい 。 ) 


以上 で シス テム の 構築 作業 は 終了 し まし た 。 デ ィ ス ク ・ ス ペー ス に 余裕 が な 
けれ ば , CONF IG. COM と ERRORS フ ァイル を 消し て 下さ い 。 


2・ プ ログ ラム の コン パイ ル と 実行 
2.1 プロ グラ ム の 作成 


テキ スト ・ エ ディ タ を 使用 し て フォ ー ト ラン の ソー ス ・ プ ログ ラム を 作り ま 
す 。 フ ァイル の 拡張 子 は , FOR に し て 下さ い 。 ソ ー ス ・ プ ログ ラム の 詳細 に 
つい て は 3 . 2 節 か 参考 書 P. 185 を 見 て 下さ い 。 


2 な プラ が ラム の コン ソル 
ソー ス ・ プ ログ ラム は 。, 
FORT_U : PGM. LAO SOPTIONS ソ 


と すれ ば コン パイ ル で きま す 。 ここ で , 


FORT は FORT. COM を 示し ます 。 

< U : は . ソー スプ ログ ラム の 存在 する ドラ イブ 名 で す 。 

es PGM は 拡張 子 な し の ソー スプ ログ ラム 名 で す 。 

s し は , 以下 の 様 に リス ト の 出力 先 を 指定 し ます 。 す な わ ち , 
ドラ イブ 名 

シス テム コン ソー ル 


CPZM の リス ト デ バ イス 
リス ト 出 力 を 省略 する 


放 一 


NQN で 史 で 


た だ し , AP を 指定 し た 時 リス ト 出 力 フ ァイル は PGM. LST と いう 名 
前 に な り ま す 。 
。 A は 中 間 フ ァイル の 出力 先 を 指定 し ます 。 す な わ ち 
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A 一 P ドラ イブ 名 
Z 中 間 フ ァイル の 出力 を 省略 する 。 


中 間 フ ァイル の 拡張 子 は . ASM と な り ま す 。 この ファ イル は フォ ー ト ラン 
コン パイ ラ に よっ て 自動 的 に 消去 され ます 。 


* 〇 は オプ ジェ クト ・ フ ァイル の 出力 先 を 指定 し ます 。 す な わ ち , 


閥 キア ドラ イデ 名 
Z オプ ジェ クト ・ フ ァイル を 作ら な い 。 


オプ ジェ クト ・ フ ァイル は , .OB] と いう 拡張 子 を 持ち ます 。 


ぐ 注 ン も し , 中 間 フ ァイル か , オプ ジェ クト ・ フ ァイル か に ZZ を 指定 する と 
オプ ジェ クト ・ フ ァイル は 生成 され ませ ん 。 


も し ドラ イブ 名 を 指定 し な けれ ば デフ ォ ル ト ・ ド ライ ブ 上 に 作成 し ます 。 


FORT. COM と ASSM. COM フ ァイル が ,。 デフ ォ ル ト ・ ド ライ ブ 上 に 
存在 し な けれ ば な り ま せん 。 


も し O に Z 以 外 を 指定 する と , 中 間 フ ァイル は 自動 的 に 消去 され ます 。Z を 
指定 する と , A に Z 以 外 を 指定 し た 場合 は , .ASM と いう 拡張 子 を 持つ 中 間 
ファ イル を 出力 し ます 。 


2.3 コン パイ ル 時 の オプ ショ ン 
コン パイ ル 時 に 指定 で きる オプ ショ ン に つい て 説明 し ます 。 こ れ ら の オプ シ 


ョ ン は , コン パイ ル 時 に , コマ ンド 行 の 最後 に 記号 に 続け て 入力 し ます 。 例 
えば 


AFORTL」U :PGM. LAOU」$SNP2 ン 


の 様 に し ます 。 
各 オ プシ ョ ン の 説明 
N 中 間 フ ァイル と オプ ジェ クト ファ イル を 作成 し ませ ん 。 


P リス ト 出 力 を ペー ジ 編 成 に し ます 。 即ち 66 行 プ 1 ペー ジ で フォ ー ト ラ 
ン の プロ グラ ム 単 位 ご と に 改 ペ ー ジ し ます 。 


1 ソー スプ ログ ラム の 各行 の 66 け た 目 ま で 空白 を 詰め ます 。 

2 ソー スプ ログ ラム の 各行 の 72 け た 目 ま で 空白 を 詰め ます 。 
ぐ 注 > 通常 ソー ス ・ プ ログ ラム の 各行 に は 空白 を 詰め ませ ん 。 こ の 問題 は 継 
続行 の 処理 の 時 に 起こ り ま す 。 FORT M の 標準 的 な 文法 で は 継続 行 の 7 けた 
目 が 前 行 の 72 けた 目 に 続く 規約 に な っ て いま す 。 文 字 定 数 が 二 行 に 分 か れ て 


いる 時 に 7 2 けた まで 空白 を 詰め る か どう か が 問題 に な り ま す 。 例 を あげ ます 。 


10 REORIMA や や () 下 理 TS。.1S 、AN 
XLJEXAMPLE ”) 


を 空白 を 詰め な いで コン パイ ル す る と 実行 時 に は 
THIS TS AN EXAMPLE 
と な り ま す が , 2 の オプ ショ ン を 付け る と , 


THIS IS AN 一 49 個 の 空白 -EXAMPLE 


と な り ま す 。 こ れ ら の オプ ショ ン は , 昔 の パン チカ ー ド に 打 た れ た プロ グラ ム 
を フォ ー ト ラン で コン パイ ル , 実行 する 時 以外 は 使う 必要 は あり ませ ん 。 


H  P オ プシ ョ ン と 共に 使用 し ます 。 リス ト 出 力 に ヘッ ダー を つけ ます 。 


C ニ メ メ XX コモ ン 共 通 プ ブロ ッ ク の 数 の 最大 値 を 指定 し ます 。 1 0 進 
数 で 指定 し ます 。 省略 値 は 1 5 で す 。 


B ニ メ メ XX ソー スプ ログ ラム の 論理 行 の 最大 字数 を 1 0 進数 で 指定 
し ます 。 継続 行 も 含め た 文字 数 で す 。 省略 値 は 530 で す 。( 文字 定数 
外 の 空白 は 数 えま せん 。 ) 


M = XXXX 無名 コモ ン ( 無名 共通 プロ ッ ク ) の 最 下位 アド レス を 指 
定 し ます 。 す な わ ち , この 値 に 0BFFF 番 地 を 指定 する と , 共通 プロ 
ッ ク の 大 き さ が 512 バ イト な ら ば , OBE0 0H か ら 0BFFFH ま 
で が 共通 プ ブロック と な り ま す 。 1 6 進数 で 指定 し ます 。 


この M オ プシ ョ ン は CHAIN を 使っ て プロ グラ ム 間 で デー タ を 引渡 
す 為 に 使い ます 。 


く 例 
AFORT MYPROG $C=20 ン 


デフ ォ ル トド ライ ブ プ 上 の MYPROG. FOR を コン パイ ル し て 同じ ドラ イブ 上 
に , .ASM, .LST, .OB ファ イル を 作成 し ます 。 コ モン ブロ ッ ク は 20 個 
まで 許し ます 。 


AFORT TEST. YZZ $P ン 


デフ ォ ル トド ライ ブ 上 の TEST. FOR を コン パイ ル し ます 。 リ スト 出力 を 
CPM の LST : デバ イス に 出力 し , 中 間 フ ァイル ,. オプ ジェ クト ファ イル 
を 作り ませ ん 。 プ ログ ラム 単位 ご と に 改 ペ ー ジ する オプ ショ ン を つけ まし た 。 


2.4 プロ グラ ム の 実行 


オプ ジェ クト ファ イル が で きた ら , 
AFRUNL」U : フ ァイル 名 ご 


と する 事 に よっ て プロ グラ ム が 実行 で きま す 。U : は ファ イル .OBT] の 存在 
する ドラ イブ の 名 前 で す 。 も し デフ ォ ル トド ライ ブ 上 に 存在 する 場合 は 指定 す 
る 必要 は あり ませ ん 。 実行 時 ルー チン は , 100H 番 地 か ら 3FFFH 番 地 まで 
の 16KByte を 占め ます 。 オプ ジェ クト ファ イル は 4000H 以 降 に ロー ド さ 
れ ま す 。 

プロ グラ ム が 正常 終了 する か 又は エラ ー に よっ て 異常 終了 する か に よっ て , 
CPM の コマ ンド 待ち 状態 に 戻り ます 。 


く 例 > 
コン パイ ル と 実行 の 例 を 示し ます 。 


AFORTL」GRAPH ソ 


AFRUNL」GRAPH ン 


リス ト 出 力 と オプ ジェ クト ファ イル を デフ ォ ル トド ライ ブ に 作成 し ます 。 そ 
し て プロ グラ ム を 実行 し ます 。 


2.5 COM フ ァイル (実行 形式 の ファ イル ) の 作成 


CPM の 実行 形式 の ファ イル を 作成 する 事 が で きま す 。 実 行 形式 の ファ イ 
ル は , FRUN. COM と オプ ジェ クト ファ イル を 合わ せ た も の に な り ま すか ら 
オブ ジェ クト ファ イル に 比べ て 16KK バ イト 程 大 きく な り ま す 。 実行 形式 の フ 
ァイル を 作成 する 為 に は , 


AFRUNL」GRAPH.C ご 


と し ます 。 GRAPH. COM が 作ら れ ま す 。 こ の プロ グラ ム を 実行 する 為 
い o・ 


AGRAPH ン 


と し ます 。 


3・FORTRAN 言 語 の 文法 
3.1 FORTRAN で 使え る 文字 


英字 A, B, C, D, E, F, G, 
PR の ま SN WT WW 。 


人 『。 き 9 
特殊 文字 


トー 空白 (で 表わす ) 


圭 。 プ ラス 

ー マイ ナス 

6 アステ リザ サス 

ププ スラ ッシュ (斜線 ) 

( 左 か っ こ (left parenthesis ) 


) 右 か っ こ (right parenthesis ) 


点 (小数 点 ) 


$ ダラー 記号 
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大 ポジ イー 配 号 
科 アン ド 記 号 (ampesand ) 
へ N バッ クス ラッ シュ 

で が 


9 ジー セミ 5 


な どの アス キー 記号 が 使え ます 。 
ぐ 注 小文字 は , 文字 定数 以外 で は 大 文字 に 変換 され ます 。 


以下 の 特殊 文字 は この FORTRAN で は 特殊 な 意味 が あり ます 。 


$ ダラー 記号 は 以下 に 続く 0 一 9 , AF と 合わ せ て 1 6 進数 と し 
て 扱う 事 を 示し ます 。 4 . 3 . 1 を 参照 し て 下さ い 。 


井 ナン バー 記号 は 以下 に 続く 0 一 9 , AF と 合わ せ て 1 6 進数 と 
し て 扱う 事 を 示し ます 。 4 . 3 . 1 を 参照 し て 下さ い 。 


交 アン ド 記 号 は , 使わ れる 場所 に よっ て 2 つの 役目 が あり ます 。 


1) FORMA 華 文中 で 文字 定数 の 中 で る を 使用 し た 場合 は , 以 
下 に 続く AZ, な ど と 合わ せ て ASCI I の コン トロ ー ル 
記号 を 示し ます 。 
例え ば 層 」 は ライ ン フ ィ ー ド を 示し ます 。 

(10. 5. 14 を 参照 し て 下さ い ) 


2) サブ ルー チン 副 プ ログ ラム 中 で は , 多重 リタ ー ン の 戻り 番地 
を 示し ます 。 
(9. 5 を 参照 し て 下さ い ) 


へ ペッ クス ラッ シュ は , アス キー コー ド を 1 6 進数 で 表わす 為 に 用 
いま す 。 
(4. 3. 2 を 参照 し て 下さ い ) 


コン ソー ル に よっ て は 記 号 の 場合 が あり ます 。 ] IS コード で 
は 壮 で す 。 


3.2 FORTRAN の 文 と 行 と プロ グラ ム 単 位 


FORT M の 規約 に 従っ て いま す 。 た だ し , オプ ショ ン の 選択 に よっ て , 行 
の 最後 に 詰め られ る 空白 の 扱い が 違い ます (2. 3 で 説明 し まし た ) 。 各行 は 
キャ リッ ジリ ター ン で 区 切ら れ ま す 。 文 は 数 行 に 渡る 場合 や , 一 行 に 複数 個 存 
在 す る 場合 も 許さ れ ま す 。 ( 3 . 4 を 参照 し て 下さ い ) ( 参考 書 P. 18 参照 


た だ し END 行 は END 文 と な っ て いま す 。 (CFORT M か ら の 拡張 ) 


プロ グラ ム 単 位 と は , 主 プ ログ ラム か 副 プ ログ ラム の 事 を 言い ます 。 主 プロ 
グラ ム は SUBRUT I NE と FUNCTION と で な い 文 か ら 始 まり END 文 で 終 
る 一 連 の 文 の 集まり で , 実行 可能 プロ グラ ム に は 一 つ し か 存在 し て は な り ま せ 
ん 。 副 プロ グラ ム は SUBROUT I NE 文 か FUNCT 1 ON 文 で 始ま り END 
文 で 終る 一 連 の 文 の 集まり で す 。 実行 可能 プロ グラ ム は 一 つの 主 プ ログ ラム と , 
いく つか の 吾 プ ログ ラム と か ら 成 っ て いま す 。 


3.3 FORTRAN の 文 


FORT M の 規約 に 従い ます 。 た だ し 複数 行 に 渡る 文 は 空白 (文字 定数 の 内 
の 空白 は 除く ) を 含め な いで 530 文 字 以 内 で な けれ ば な り ま せん 。 ( これ は 
B オ プシ ョ ン で 変更 で きま す ) 


3.4 複 文 


文 は 一 行 に 複数 個 書 く 事 が で きま す 。 各 文 は も セミコロン で 区 切る 事 が 必要 で 


す 。 そ の 文 が ラベ ル ( 文 番号 ) を 持つ 場合 は , : で 文 番号 と 文 を 区 切り ます 。 
例え ば , 


2 

3 CONTINUE 
AA 二 1 
1P 2 
GO TO 3 
END 


は 複 文 と し て 書く と 
A ニ 153:CONTINUE:A ニ A 十 1 iTYPELA 
GOTO 3 END 


3.5 FORTRAN プ ログ ラム の 書き 方 


CPM の テキ スト エディ タ を 使用 し て , FORT IM の 規約 と 前 章 ま で に 説 
明 し た 拡張 され た 規約 を 守っ て プロ グラ ム を 書き ます 。 プ ログ ラム ょ 単位 ご と に 
その 直前 に OPTION 文 を 付け る 事 が で きま す 。 

-FOR ファ イル は すべ て の 吾 プ ログ ラム を 含ん で いな けれ ば な り ま せん 。 す 
な わ ち , 各 プ ログ ラム 単位 を 別々 に コン パイ ル す る 事 は で きま せん 。 (3. 6 
を 参照 し て 下さ い ) 


3.6 COPY 文 


廊 法 : COPY こ ドラ イブ 名 : ファ イル 名 

この FORTRAN は 各 プ ログ ラム 単位 を 別々 に コン パイ ル す る 事 は で きま せん 
が , COPY 文 を 使用 する 事 に よっ て ソー ス フ ァ イル を 小さ くす る 事 が で きま 
す 。 例え ば, ある プロ グラ ム ょ 単位 を 別 の ソー ス フ ァ イル と し て ディ スケ ッ ト 上 
に 置い て お き , コン パイ ル 時 に と り 込 む 事 が で きま す 。 例えば, B ド ライ ブ 上 
の ADDIT. FOR と いう ファ イル に ADDI 工 と いう サブ ルー チン 副 プ ログ 
が 用 意 さ れ て いる 時 に , 以下 の 様 に する 事 が で きま す 。 


デイ 

SE AD 條 C A。〒 う 
WMIR 人 是 Sci OPT 

So GE 

END 

COPYLUB: ADD1IT 


COPY 文 は ファ イル 名 の 前 に 一 文字 以上 の 空白 を 入れ な けれ ば な り ま せん 。 
COPY 文 は ネス ト で きま せん 。 COPY 文 で 読み 込ま れる ファ イル の 中 に 
COPY 文 が 存在 し て は な り ま せん 。 


3.7 OPTIONS 文 


文法 : OPTIONS_ オ プシ ョ ン 並 び 

各 オ プシ ョ ン は コン マ で 区 切り ます 。 

OPTIONS 文 は 以下 に 続く プロ グラ ム 単 位 の コン パイ ル 時 の オプ ショ ン を 
指定 する 為 の 文 で . プロ グラ ム 単 位 の 先頭 に 存在 し な けれ ば な り ま せん (な く 
て も よい )。 以 下 に その パラ メタ の 指定 の 仕方 と 意味 を 示し ます 。 各 パラ メタ は 
コン マ で 区 切り , 最初 の パラ メタ の 前 に は 空白 を 入れ て 下さ い 。 OPTIONS 
文 の 有効 範囲 は 以下 に 続く 一 つの プロ グラ ム 単 位 だ け で す 。 


Sn n は 10 進 数 で プロ グラ ム 単 位 に 存在 し 得る 変数 の 数 の 最大 
値 を 指定 し ます 。 省略 値 は 50 で す 。 


Ln n は 10 進 数 で プロ グラ ム 単 位 に 存在 し 得る 文 番号 の 数 の 最 
大 値 を 指定 し ます 。 省略 値 は 50 で す 。 


エー n は 10 進 数 で 一 つの 式 の 評価 を する 時 の 一 時 的 な 変数 の 数 
の 最大 値 を 指定 し ます 。 省略 値 は 1 5 で す 。 


D デ n  n は 10 信 数 で DOー ル ー プ の 入れ 子 の 数 の 最大 値 を 指定 し 
ます 。 省略 値 は 5 で す 。 


ご 6 ご 


A テ ョ 


O テ ュ ョ 


ーー 


n は 10 進数 で , 配列 の 個数 の 最大 値 を 指定 し ます 。 省略 値 
は 5' で すず 。 


n は 10 進数 で 式 の 評価 の 際 の 演算 子 な どの 数 の 最大 値 を 指 
定 じ ま す 。 コンパ イル 時 に 3EF の 番号 の エラ ー が 起 っ た ら n 
を 増し て 下さ い 。 省略 値 は 40 で す 。 


n は 10 進数 で 式 の 評価 の 際 の 変数 や 定数 の 数 の 最大 値 を 指 
定 し ます 。 コ ン パ イル 時 に 3F の 番号 の エラ ー が 起 っ た ら n 
を 増し て 下さ い 。 省略 値 は 40 で す 。 


n は 10 進 数 で IF 一 THEN 一 ELSE 節 の 入れ 子 の 数 の 最 
大 値 を 指定 し ます 。 省略 値 は 5 で す 。 


リス ト 出 力 に 変数 や 定数 の 参照 表 を 作成 する 事 を 指示 し ます 。 


リス ト 出 力 に エラ ー メ ッ セ ー ジ の か わり に エラ ー 番 号 を 出力 
する 様 に 指示 し ます 。 


各 文 に ISN (内 部 文 番号 ) を 付け て , 実行 時 エラ ー が どの 
文 で 発生 し た か わか る 様 に する 事 を コン パイ ラ に 指示 し ます 。 
この オプ ショ ン を つけ る と 各 文 に 対し て 5 バイ ト づ つ オ プ ジ 
ェクト ファ イル が 長く な り ま す が , デバ パッ グ の 際 に は 便利 で 
を まそ と 


中 間 フ ァイル , オブ プ ジ ェ クト ファ イル を 作成 し な い 事 を 指示 
し ます 。 文法 エラ ー を 発見 する 為 の コン パイ ル で ある 事 を 意 
味 し ます 。 


FORTRAN の 各 文 を 中 間 フ ァイル (.ASM フ ァイル ) に 
アセ ンプ ブラ の 注釈 と し て 挿入 する 事 を 指示 し ます 。 


Q ユー ザ が 実行 時 エラ ー 処 理 を 自分 で し よう と 考え て いる 場合 
に は この オプ ショ ン を 付け な けれ ば な り ま せん 。( 6. 10 
を 参照 し て 下さ い ) 


Si ン 電 ショ ン 以 欠 全 は 256 必 下 で す 5 6 放 才 計 D,。 A,。 OO, P, 
I の 各 オ プシ ョ ン は その 省略 値 を CONF 1G 時 に 変更 で きま す 。 


く 例 > 
$OPTIONS X, G, S=200,L=100 


X, G, S, し の 各 オ プシ ョ ン を 変更 又は 指定 し まし た 。 


4・ 数 、 定 数 、 変 数 型 、 共 通 ブ ロッ ク 
4.1 数 の 内 部 表現 


この FORTRAN で は 数 値 の 内 部 表現 と し て 以下 の 様 な 形式 を 採用 し て いま 
す 。 す な わ ち ーー つの 数 値 は 6 バイ ト を 占め ます 。 6 バイ ト の うち の 4 バイ ト に , 
8 けた の 仮数 部 が BCD 形 式 ( 2 進化 10 進 形式 ) が , 次 の 1 バイ ト に 正負 の 
区 別 が , その 次 の 1 バイ ト に 指数 部 が お さめ られ て いま す 。 こ れ に よっ て , 
0.10000000 セ ー127 か ら , 0.99999999E 二 127 まで の 正負 の 数 
と 0 が 表現 で きま す 。 こ の FORTRAN の 実数 は , この 範囲 な り ま す 。 指 数 
部 は , 符号 付き 整数 ( 2 の 補 数 表示 ) に 80 HH を 加え た も の と な っ て いま す 。 
0 は , 指数 部 を 0 と し て 表現 し て いま す 。 


9 9|9 9|9 9|19 9| 待 号 | 指 数 
上 位 バ イト 仮数 下位 バイ ト 


4.2 数 値 の 範囲 


数 は 実数 も 整数 も 4. 1 で 説明 し た 表現 を 使用 し て いま す 。 従っ て 実数 は 4 . 
1 で 説明 し た 通り で 整数 は ー 99999999 か ら 99999999 まで で す 。 


実数 の 範囲 
9 0. 0 
oi 表 区 9 9.9 99999 氏 士 1 2 7 0 5 一 127 


9 0. 1 セー127 全 r 全 0.99999999E+127 


整数 の 範囲 


ー99999999 公 ji 全 99999999 


4.3 定数 
4.3.1 整定 数 と 実 定 数 


整定 数 と 実 定 数 は FORT M の 規約 に 従っ た も の の 他 に , 人 旬 記 号 , 井 記 号 を 
用 いて 16 進数 で 与え る 事 が で きま す 。 


$ 記 号 で は $FFFF か ら 十 $FFFF ま で , 
井 記 号 で は 井 0 0 0 0 か ら 井 FFFF ま で で す 。 


$ 記 号 と 井 記 号 は 全く 異な る も の な の で 注意 し て 下さ い 。 記号 は , 内 部 表 
現に 変換 し て か ら 格 納 さ れ ま す が , 井 記 号 は その まま 格納 され ます 。 即ち , 


$ 805F は 内 部 で は 32 86 30 00 00 85 

と な り ま す が , 

井 805F は 内 部 で は 5F 80 00 00 00 00 

と な り ま す 。 こ の 違い を 理解 し て か ら 使用 し て 下さ い 。 805FH は 1 0 進数 


で は 32, 863 で すか ら , 免 記号 の 方 は 0.32863E5 と し て 格納 され た 
の で す 。 


4.3.2 文字 定数 


文字 定数 は 引用 符 ( ′ ) で 囲み ます 。 文字 定数 の 中 に 引用 符 を 使用 し た い 場 
合 は , 二 つ の 引用 符 を 続け て 入力 し ます 。 バ ックス ラッ シュ で 囲ん で , アス キ 
ー コ ー ド を 16 進 数 で 指定 する 事 が で きま す 。 
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く 例 > 


This is a string constant 
*Single quote is ( '')' 


DODN 2 て 


は 一 つの 引用 符 を , へ 21 へ は アス キー コー ド の 21H( ! ) を 表わし 
ま 69a 


文字 定数 内 に ヽ 0 へ を 使用 し て は いけ ませ ん 。 へ ヽ 0 ヽ は 文字 定数 の 終り を 指示 
示し ます 。 プ 記号 (パッ クス ラッ シュ ) は CONF IG 時 に 変更 で さま す 。 


4.3.3 論理 定数 


論理 定数 に は .TRUE. と .FALSE. が あり ます 。 そ れ ぞ れ 真 , 偽 を 
表わし ます 。 内 部 的 に は , .FALSE. が 0 で , .TRUE. が 1 で あら わ さ れ 
て ます 。 た だ し , 0 以上 の 数 は すべ て . TRUE . と し て 扱わ れ ま す 。 


4.4 変数 名 


変数 名 は FORT VM の 規約 に 従っ て いま す 。 英字 で 始ま る 6 文字 以内 の 英 数 
字 で す 。 


く 例 
ABJ 
A38 


JGMJGM 


4.5 型 の 指定 (宣言 ) 


型 の 指定 は 暗黙 的 な 型 宣 言 も 含め て FORT IM の 規約 に 従っ て いま す 。 た だ 
し 型 の 種類 は 4 種類 で す 。 


文法 : 

ドド NEAR 1 VS パー っ RW 

昌 DIV1 。 VVT Vn 

06 人 RDG 0Y 9v2 す 。 Vn 

9 PR S NGIN YYT Ye で"" Va 


yi は 変数 名 , 配列 名 , 関数 名 また は 配列 宣言 子 

複素 数 型 は 使用 で きま せん 。 ま た , DOUBLE PRECISION( 倍 精度 
実数 型 ) は プロ グラ ム の 内 部 で は REAL (実数 型 ) と 同じ も の と し て 扱わ れ 
ます か ら 他 機種 か ら の プロ グラ ム の 移植 の 際 に は 注意 が 必要 で す 。 論理 型 は 必 
ず 宣 言 し な けれ ば な り ま せん 。 各 変数 は 一 つの 型 し か 持つ 事 が で きま せん 。 型 
宣言 文 は IMPLIC1I 華 文 に 優先 し ます し , IMPL 1IC1I 丁 文 は 暗黙 的 な 型 宣 
言 に 優先 し ます 。 ( 暗黙 的 な 型 宣 言 と は , 頭 文 字 が A 一 HH, 〇 一 ZZ の 変数 名 を 
実数 型 と し て , 1 一 M の 変数 名 を 整数 型 と し て 変数 を 使う と いう FORT IM の 
規約 の 事 で IMPLI CI と は 異な っ た 意味 に 用 いて いま す 。) 


く 例 
INTEGER A, ZOT, ZAP(10) 


隊 計 交 R1 。 RTo NTK 100.) 


IGEEIGATE FNTET。 贅 AG1 EE な 1 


4.6 DATA 文 


実 湊 DATmA ロ コッ ャ プ す 1 。d す 2。 あど 

di は 定数 。 た だ し v が 配列 名 の 場合 に 限っ て 複数 個 並べ る 事 が で きま す 。 
DATA 文 は FORT M の 規約 に 従っ て いま す 。 た だ し 以下 の 形 の も の に 限 
っ て 使え ませ ん 。 


きき 22 一 


DA で 生き 更に の ンド 285 ペ 


DA TS だ イーB ジ 2 ンジ ピン ング 93 有 2 - の 
2 番目 の 書き 方 に 従っ て 下さ い 。 


無名 共通 ブロ ッ ク 内 の 変数 に は DATA 文 で 初期 値 を 与え る 事 は で きま せん 。 

配列 に 初期 値 を 与え る 場合 は 要素 の 数 と デー タ の 数 が 異な っ て いて も か まい ま 
せん 。 DATA 文 は プロ グラ ム 単 位 を すべ て コン パイ ル し 終っ て か ら 評 価 さ 
れ ま すか ら DATA 文 に エラ ー が 存在 し た 場合 に は END 文 の 後に 表示 され ま 
す 。 DATA 文 で 初期 値 を 与え られ た 変数 が プロ グラ ム 単 位 の 中 の どこ に も 現 
われ て いな い 場 合 に も エラ ー が 起こ り ま す 。 


4.7 共通 ブロ ッ ク (COMMON 文 ) 


COMMON 文 は FORTM の 規約 に 従っ て いま す 。 無名 共通 ブロ ッ ク ( プ ブラ 
ンク コモ ン ) は , CPM の TPA の 最終 番地 に お か れ ま す 。 ( 2. 3M ォ オプ 
ショ ン を 参照 ) プ ラン クコ モン は は 初期 化 さ れ ま せん か ら 同 じ サ イズ の コモ ンプ 
ロッ ク を 使用 すれ ば CHAINC( 11 . 2 を 参照 し て 下さ い ) 時 に デー タ の 受け 


渡し が で きま す 。 
文法 : COMMON プ ブロ ッ ク 名 1 ブ Yj,」 v2 」…… 。 vsa グ ブロ ッ ク 名 2 
グ vn+ ュ ae Vn+m 


プ ブロック 名 1 は な く て も よい 。 その 場合 2 本 の 斜線 も なく て も よい 。 


名 前 付 コ モン の 名 前 は 関数 名 や サブ ルー チン 吾 プ ログ ラム 名 と は 違う 名 前 を 
付け て 下さ い 。 名 前 付き コモ ン の 名 前 は 5 文字 以内 で す 。 


コモ ン の 名 前 と し て , A, B, C, D, EE, H, し , M。 SP, PSW は 許 
され て いま せん 。 


4.8 IMPLICIT 文 


IMPLIC1I 丁 文 は FORT M に は 存在 し ませ ん 。 暗 黙 の 型 宣言 を 変更 する 
為 に 使用 し ます 。 即ち , FORTIM で は 型 宣言 を し な か っ た 場合 に は A 量 , 
OーZ を 頭 文 字 と する 変数 を 実数 型 , I, ], K, し , M, N を 頭 文 字 と する 
変数 を 整数 型 た と し ます 。 IMPL 1C1 丁 文 は 以下 の 様 に これ ら の 暗黙 の 型 宣言 
を 変更 し ます 。 

文法 : IMPLIC1I 華 、 型 (範囲 ), 型 (範囲 ) 


く 例 > 
IMPLICIT INTEGER(Z, AE) 


頭 文 字 が Z, A, B, C, D, EE で は じ ま る 変数 を 整数 型 と し て 宣言 し ます 。 
ハイ フン ( マイ ナス ) は , その 間 の 文字 すべ て を 意味 し ます 。 


IMPLICIT INTEGER(CA 一 ZZ) 

すべ て の 変数 を 整数 型 と し ます 。 

IMPLICI 華 文 は プログ ラム 単 位 の 中 で は SUBROUT 1 NE 文 あ る い 
は FUNCTTION 文 の 直後 に な く て は な り ま せん (な く て も よい ) 。 主 プ ログ 


ラム で は 一 番 始 め ( $OPTIONS 文 の 次 ) に 存在 し な く て は な り ま せん 
(3 が KG3 も まん や ) う も 


9 ・ 式 


式 に は 三種 類 あ り ま す 。 算術 式 , 関係 式 , そし て 論理 式 で す 。 算 術 式 は , 定 
数 , 変数 , 配列 要素 な ど を 算術 演算 子 で 結合 し た も の で その 構成 要素 に よっ て 
整数 型 , 実数 型 の どちら か の 型 を 持ち ます 。 関係 式 は 二 つ の 算術 式 を 関係 演算 
子 で 結ん だ も の で , 真 か 偽 か の 値 を 持ち ます 。 論理 式 は , 論理 型 の 変数 や 関係 
式 を 論理 演算 子 で 結ん だ も の で 真 か 偽 か の 値 を 持ち ます 。 


算術 演算 子 し 寺 ら くき 作り べき 乗 


テ 乗算 

レン 除算 

加算 

減算 
関係 演算 子 .EE@。 等 し い 

. NE. 等 し く な い 

) 合 本 大 きい 

0 1 小さ い 

。 香 到 。 大 きい か 等 し い 

近 5 じ 定 小さ いか 等 しい 
論理 演算 子 . NOT. 否定 

. AND. 論理 積 

婦 8 い だ 論理 和 

員 か GO 排他 的 論理 和 


人 へ と .XOR. は FORTIM か ら の 拡張 で す 。 
.-NO 華 . と 一 ( 負 待 号 の 場合 ) は 単項 演算 子 で す 。 


5.1 演算 子 の 結合 の 強 さ 


算術 演算 子 と 関係 演算 子 , 論理 演算 子 が 同一 式 中 に あり , その 演算 順序 が か 


っ こ に よっ て 完全 に は 規定 され て いな い 時 に は , つぎ の 順序 で 評価 され ます 。 
( 強 一 弱 ) 


強 関数 の 評価 
べき 乗 XX 又は へ 


乗除 算 
加減 算 (単項 演算 子 の 負 符号 を 含む ) 


関係 演算 
否定 
論理 積 
論理 和 又 は 排他 的 論理 和 
弱 代入 
5.2 式 の 評価 
式 の 評価 は 以下 の 順序 で 行なわ れ ま す 。 
1) かっこ で 囲 わ れ た 式 の 評価 
2) か っ この 中 は 前 節 の 結合 の 強 さ の 順序 で 評価 され ます 。 
3) 同じ 強 さ の 演算 子 は 左 か ら 右 に 評価 され ます 。 


5.3 整数 の 演算 


整数 と 実数 の 違い は けた あ ょ ふれ と 除算 の 際 の 小数 点 以下 の 切り 捨て と に あり 
ER 
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除 数 と 被 除 数 が 共に 整数 で ある 場合 に は , 結果 の 小数 点 以下 は 切り 捨て られ 
ます 。 例え ば 43 は 1 と な り ま す 。 


乗算 の 場合 に 整数 な ら ば 99999999 を 越え る と けた あふ れ が 起り ます 。 例 
えば 10000X12000 は エラ ー に な り ま す 。 ( INT RANG ERROR ) 


ぐ 視 > 
・ 通 常 の FORTRAN で は 整数 の 桁 あ あれ は お こら な い 事 に な っ て いま す 。 
移植 の 際 に は 注意 し て 下さ い 。 


5.4 実数 の 演算 
実数 の 演算 は , 結果 が 実数 の 範囲 を 越え を た ら OVERFLOW ERROR 
に な り ま す 。 


0. 0 で の 除算 は ,. エラ ー と な り ま す 。 


5.5 論理 型 の 演算 


論理 型 の 演算 は 実数 型 , 整数 型 の 演算 と は 異な っ て いま す 。 結果 は 真 ( 1 ) 
か 偽 ( 0 ) の どちら か に な り ま す 。 関係 演算 子 は , 2 つの 算術 式 の 関係 が 真 で 
あれ ば . TRUE . , 偽 で あれ ば . FALSE. と な り ま す 。 真 と 1 と. TRUE. , 
偽 と 0 と . FALSE . は 同じ 事 を 意味 し ます 。 


く 例 > 
半 二 CE まま "の で 2 A は 0 と な り ま す 
0 60 A は 1 と な り ま す 
7 三 . す TRUE た GR . RARESB 志 表 統 ポ る な りす 。 
A P . 全 ND : 全 P と Q の 値 の 真 偽 に 応じ て A の 値 が 決ま り ま す 。 
.-AND . , .OR . , .XOR . , . NOT . は 通常 の 真理 値 表 に 従い 
まま 。 


排他 的 論理 和 ( . XOR. ) は FORT WM か ら の 拡張 で す 。 


5.6 演算 に 礁 ける 型 の 混合 


FORT MV で は 演算 や 代入 に 於 て 型 は 一 致し て いな けれ ば な り ま せん が , 以 


下 の 例 外 が あり ます 。 


実数 演算 子 整数 
整数 演算 子 実数 


整数 = 実数 


実数 王 整数 
きま 


これ ら の 場合 は , 演算 の 前 に 整数 は 実数 型 に 変 
1 敵 演 算 が 行なわ れ ま す 。 結果 は 実数 型 と 
な り ま す 。 
実数 の , 小数 点 以下 が 切り 捨て られ て 整数 に な り 
ます 。 切り 捨て られ た 結果 が , 整数 の 範囲 を 越え 
て いた ら INTRANG ERROR に な り ま す 。 


整数 を 実数 型 に 変更 し て 代入 し ます 。 


ぐ 注 > この 場合 の 演算 子 は +, 一 , プ , *※ で す 。 


べき 乗 の 場合 は , 整数 の 実数 乗 は 許さ れ て いま せん 。 整数 の 整数 乗 は 整数 と 


な り ま す 。 


6 ・ 制 御 文 


制御 文 は プロ グラ ム の 流れ を 制御 する 為 の 文 で す 。FORT M の 規約 に 従う 
も の の 他 に 構造 化 を サポ ー ト する 為 に IFーTHEN 一 ELSE-ENDIF 節 
が 用 意 さ れ て いま す 。 


6.1 単純 GO TO 文 


FORT MM の 規約 に 従っ て いま す が , 拡張 と し て FORMAT 文 を GO 
TO 文 の 飛び 先 に 指定 する 事 が で きま す 。 この 場合 FORMAT 文 は 
CONT INUE 文 と 同じ 役目 を 果 しま す 。 

文法 :GOTO 文 番 号 


6.2 計算 型 GO TO 文 


FORT M の 規約 に 従っ て いま す 。 た だ し 整 変数 の 数 が 1 より 小さ か っ た 場 
合 と , 文 番 号 の 数 を 越え た 場合 と に は COM GOTO ERROR が 実行 時 に 
起り ます 。 

文法 :GOTOCmni」, nz 」 ns」…… nm), i 


n は 文 番号 , i は 整 変数 


i が 1 全 i 全 m 以 外 の 場合 , 他 の FORTRAN と 解釈 が 異な る 場合 が あり ま 


MODC10 20 0 た 6 の に 1 


RDC 1 。- 王 。 信 か 899 1 まお RBB 和 5S 
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6.3 割り 当て GO TO 文 


FORT M の 規約 に 従っ て いま す 。 ASSIGN 文 で 割り 当て られ て いな い 場 
合 や , 定義 され て いな い 文 番号 に 割り 当て られ て いる 場合 は ASN GOTO 
ERROR が 実行 時 に 起り ます 。 

36400We20G2GDGEGD| EIC In2 9) 


k は 整 変数 。 n は 文 番 号 


k に 与え られ る 可能 性 の ある 文 番号 は あら か じ め か っ この 内 に すべ て 登録 し 
て お か な けれ ば な り ま せん 。 


6.4 ASSIGN 文 
FORT M の 規約 に 従っ て いま す 。 
交 法 :ASSIGN n TO k 
n は 文 番 号 , k は 割り 当て GOTTO 文 の 中 で 用 いる 整 変数 


この 文 で 定義 し た 整 変数 は 再 定義 され な い 限 り 割 り 当 て GOTO 文 以外 で は 
引用 する 事 が で き ませ ん 。 


く 例 > 
ASSIGN 20 TO LAB 


NRN GT 3 うつ ASSTGN 10 O EAAB 


GO PO LABj で 10, 20 ) 
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6.5 算術 IF 文 


FORT M の 規約 に 従っ て いま す 。 3 つの 飛び 先 の うち の いく つか を 省略 す 
る 事 は で きま せん 。 


文法 : IF (算術 式 ) n」, nz, ns 
n は 文 番号 。 


n は 必ず 3 つ 必 要 で す 。 他 の FORTRAN で は 2 つの 場合 が 許さ れ て いる 事 
が あり ます 。 


算術 式 の 値 が 負 な ら ni に, 0 な ら nz に , 正 な ら ns に 飛び ます 。 
く 例 


IFC(DATAXGAMMA ) 100, 200, 300 
一 人)- 江 も 99 


6.6 論理 IF 文 


FORT IM の 規約 に 従っ て いま す 。 た だ し 論理 式 の 後 の 実行 文 と し て END 文 と , 
IF 文 , DO 文 を 用 いる こと は で きま せん 。 


文法 : IF( 論 理 式 ) 文 
論理 式 の 値 が 真 な ら ば 文 を 実行 し ます 。 
ぐ く 例 


IFCDEG. EQ. 28. 1)WRITE(1, *)QVA 
EACGL。 GE.。 2.:AND.。 T、 EE 4 が RETUORN 


6.7 IF- THEN- ELSE- ENDIF 前 
FORT M か ら の 拡張 と し て 構造 化 を サポ ー ト する 為 に 用 意 さ れ て いま す 。 
文法 は 以下 の 通り で す 。 
文法 : IF( 論 理 式 ) HEN 


ENDIFE 


説明 : 論理 式 の 値 が た 真 な ら ば , THEN 以 下 , ELSE 文 の 直前 まで の 文 を 実 
行 し その 後に ENDIF 文 の 直後 の 文 に 制御 が 移り ます 。 


論理 式 の 値 が 偽 な ら ば ELSE 文 の 直後 の 文 か ら END IF の 直前 の 文 ま で を 実 
行 し , その 後 は END1F 文 の 直後 の 文 に 制御 が 移り ます 。 


EL SE 文 か ら ENDIF 文 の 直前 まで の 文 を 省略 する 事 が で きま す 。 こ の 
場合 , 論理 式 の 条件 が 偽 な ら ば 直ちに END1I 下 文 の 次 の 実行 文 に 制御 が 移り 
ます 。 


ぐ 注 つ IF 一 THEN 一 ELSE 一 ENDIF 節 は 入れ 子 に する 事 が で きま す 。 
た だ し , 完全 な 入れ 子 構造 に な っ て いな けれ ば な り ま せん 。 


IF 一 THEN 一 ELSE-ENDIE 節 に 於 て , THEN の 後 , ELSE 
の 後 , ENDIF の 後 は ご か 1 で 区 切ら な けれ ば な り ま せん 。 これ は , 


それ ぞ れ が 独立 し た 文 だ か ら で す 。 ま た , ELSE 文 , ENDIF 文 に は 
文 番号 を 付け る 事 は で きま せん 。 


この 節 の 中 か ら 外 へ 制御 を 移す 事 は で きま す が , 外 か ら こ の 分 の 中 へ 
制御 を 移す 事 は で きま せん 。 


6.8 DO 文 


FORT M の 規約 か ら 拡張 され て いま す 。DO の 端末 文 ( DO こ 文 番号 …… 
の , 文 番号 を も つ 文 ) は , 他 の DO 文 , GO TO 文 , STO 也 文 , 5ー 
THEN 文 , ELSE 文 , ENDIF 文 , END 文 , RETURN 文 で あっ て は い 
け ま せん 。 こ れ ら の も の に な っ て し まう 場合 に は , CONTTINUE 文 を 用 いて 
下さ い 。 


ぐ 注 FORT M の 規約 で は 以上 の 他 に 算術 IF 文 と . 以上 の いずれ か を 含 
む 論 理 IF 文 , PAUS 世 文 も 端末 文 と は な り 得 な い 事 に な っ て いま す 。 


ぐ 注 ン DO の 範囲 (DO 文 の 次 の 文 か ら 端 末 文 ま で ) で DO の 制御 変数 , 初 
期 値 パ ラメ タ , 終値 パラ メタ , 増分 マラ メタ を 変更 し て は いけ ませ ん 。 


ぐ 注 つ FORT VM で は , DO の 範囲 を 必ず 一 度 は 実行 し ます 。 FORTT 77 
で 書か れ た プロ グラ ム を oc 一 FORTRAN で コン パイ ル す る 場合 に は 注意 し て 
下さ い 。 


文法 :DO n ji=m1l,m2,m3 


n は DO の 端末 文 の 文 番号 , ij は 実 ま た は 整 変 数 .m1, m2, m3 は 実 
変数 , 整 変数 , . 実 定数 整定 数 。 i , m に は 配列 要素 を 用 いる 事 は で きま せん 。 
また , m3 は 省略 する 事 が で きま す 。 その 場合 に m 3 は 1 と な り ま す 。 i を 
DO の 制御 変数 , m 1 , m2, m3 を それ ぞ れ 初期 値 . 終値 , 増分 パラ メタ と 
いい ます 。 


く 例 > 
9@⑯ う 0 HE 三 す 』 表 00 
DO4.2 JENDi 0:.5 
DO 72 A=START, END, AINCR 


0 美人 RA 三代 負 


最後 の 例 で も DO の 範囲 を 一 度 は 実行 し て し すい ます 。 


6 .9 CONTINUE 文 


FORT M の 規約 に 従っ て いま す 。 


文法 : 文 番号 CONTINUE 


6.10 ERROR トラ ッ プ 


通常 実行 時 に エラ ー が 起 る と この FORTRAN で は 実行 時 処理 シー チン が エ 
ラー メッ セー ジ を 出力 し ます 。 こ の FORTRAN で は ERRSET 文 と ERR 一 
CLR 文 を 用 意 す る 事 に よっ て 利用 者 が エラ ー 処 理 を 行う 事 を 許し て いま す 。 


文法 :ERRSET 文 番 号 , 変数 名 
ERRCLR 


説明 : ERRSE 華 文 は その 文 の 存在 する プロ グラ ム 単 位 内 で エラ ー 発 生 時 
に 制御 を 移す 実行 文 の 文 番 号 と , エラ ー 番 号 を 返す 変数 名 を 設定 し ます 。 
ERRSE 十 文 は OPTIONS 文 で Q を 指定 し た 時 に 限っ て 有効 と な り ま す 。 
ERRSE 征 文 が 有効 と な っ た 場合 は 実行 時 処理 ルー チン は エラ ー メ ッ セ ー ジ 
を 表示 し ませ ん 。 

返さ れ た エラ ー 番 号 と その 意味 は 11.5 を 参照 し て 下さ い 。 


一 含 例 一 


ERRSETT 文 が 同じ アプ ログラム 単位 内 で 複数 個 実行 し た 場合 は 最後 に 実行 
し た ERR SET 文 が 有効 で す 。 


ERRCLR 文 は ERRSET を クリ ヤ し て エラ ー 処 理 を 実行 時 処理 ルー チ 
ン に 委ね ます 。 


く 例 > 
OPTIONS Q 


ERRSETT 10, CODE 
ERRCLR 


STOP 
10 下 YPE、 ERROR COy 上 三 '。CODE 
END 


ERRSET 文 実行 後 , ERRCLR 文 を 実行 する まで に エラ ー が 起 っ た 場合 
は , TYPE 文 を 実行 し ます 。 


6.11 コン トロ ー ル C 制 御 


この FORTRAN で は CPM の アボ ー ト で ある コン トロ ー ル C に 対し て 注 
意 を 払っ て いま す 。 すなわち , 


(1 ) REAC 文 又は WR ITE 文 を 実行 する 前 に , コン トロ ー ル Cー ア ボー ト 
フラ グ を 調べ ます 。 


(2) も し , コン トロ ー ル Cー ア ボ ポート フラ グ が セッ ト さ れ て いた ら , コン ソ 
ー ル の ステ イタ ス を 調べ , コン トロ ー ル C キ ー が 押さ れ て いる か どう か 調べ ま 
す 。 も し コン トロ ー ル CC キー が 押さ れ て いた ら , ERRSET が 有効 か どう か 
に よっ て 以下 の どちら か が 起り ます 。 

(a) ERRSET 本 文 が 有効 な 場合 は . コン トロ ー ル C エ ラー コー ド を 返 
し て 制御 が ERRSE 文 で 指定 され た 文 番号 へ 移り ます 。 

(b) ERRSETT 文 が 有効 で な い 場 合 は , 実行 時 処理 シー チン が , コン 
トロ ー ル ⑥ ニ エラ ー メ テッ セー ジ を 表示 し ます 。 


利用 者 は , この 過程 で コン トロ ー ル C ア ボー ト フ ラグ を セッ ト し た り リ セッ 
ト し た りす る 事 に よっ て , コン トロ ー ル C に 対す る 応答 を 変更 する 事 が で きま 
9 

CTRLULENABLE 文 は に の フラ グ を セッ ト し ます 。 


CTFRL_DISABLE 文 は に の フラ グ を リセ ッ ト し ます 。 


CTRL_LDISABL 到 文 が 実行 され る と コン ソー ル か ら の コン トロ ー ル 
C は 無視 され ます 。 


ぐ 注 CIN 関 数 (11. 3 参照 ) は コン トロ ー ル C も 読み 込ん で し まい ま 
す 。 こ れ は アボ ポー ト フ ラグ に は 依存 し ませ ん 。 


6.12 プロ グラ ム の 実行 の トレ ー ス 


TRACE ON 
TRACE OFF 
文 で この FORTRAN の トレ ー ス 機能 を 利用 で きま す 。 プ ログ ラム の 実行 開 


始 の 時 点 で は トレ ー ス 機能 は OFF に な っ て いま す 。 も し トレ ー ス を 開始 し た 
いな ら ば , TRACE ON 文 を 実行 し な けれ ば な り ま せん 。 ト レー ス 機 能 は 大 
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域 的 な も の で す 。 す な わ ち , プロ グラ ム 単 位 を 越え て トレ ー ス し ます 。 従っ て 
一 了 皇 トレ ー ス 機能 を ON に し た ら , 他 の サブ ルー チン ゃ 関数 に 制御 が 移っ て も 
トレ ー ス は 続け られ ます 。 ある プロ グラ ム 単 位 で 。OPTIONS 文 で XX 
OPT ION を 指定 し て お け ば , トレ ー ス 機能 に よっ て , その 文 を 実行 する 直 
前 に , その 文 の I SN を 表示 し ます 。 X オ プシ ョ ン が 指定 され て いな い 場 合 は 
サブ ルー チン や ファ ンク ショ ン に 制御 が 移っ た 時 点 で その 旨 が 表示 され る だ け 
KS 


6.13 DUMP 文 


DUMP 文 は 実行 時 の エラ ー を 発見 する 為 の ,。 デ バッ グ 用 の 文 で す 。ERRSET 
文 に よっ て 捕え られ な い 様 な 実行 時 の エラ ー を 表示 する 事 が で きま す 。 


文法 : DUMP ノノ 識別子 プ 出力 並び 


説明 : 識別 子 は 10 文 字 以下 の 文字 列 で ,。 どの DUMP 文 に よる 出力 か を 識 
別 し ま す 。 出力 並び は W R 1 本 選 文 の 出力 並び と 同じ で す 。 


DUMP 文 は プロ グラ ム 単 位 ご と に それ ぞ れ の DUMP 文 を 用 意 す る 事 が で 
きま す 。 一 つの プロ グラ ム 単 位 の 中 に 複数 個 の DUMP 文 を 実行 させ る 事 が で 
きま す が , その プロ グラ ム 単 位 中 で 一 番 最後 に 実行 し た DUMP 文 が 有効 と な 
り ま す 。 

く 例 > 


DWMP ブ ATFTER 一 D』V グ "K 邦 *。K 
人 A 二 代 プ 1 


END 


この 例 は ,. も し I が 0 で , A テ KK 1 文 が 実行 され る と DUMP 文 の 効果 に 


よっ で ゴジ シド エリ ウレ (ご 
K デ k の 値 


と 表示 され ます 。 
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7・ プ ログ ラム を 終了 させ る 者 の 制御 文 


7 .1 PAUSE 文 


PAUSE 文 は FORT IM か ら 拡 張 さ れ て いま す 。 
た だ し PAUSE_in は 許さ れ て いま せん 。 


文法 : PAUSE また は 
PAUSE 文字 列 " 
説明 : 
任意 の 長 さ の 文字 列 が 許さ れ て いま す 。 PAUSE 文 を 実行 する と コン ソー 
ル に 文字 列 を 出力 し て プロ グラ ム の 実行 を 中 断 し ます 。 コン ソー ル か ら 任 意 の 
キー を 押す 事 に よっ て プロ グラ ム を 再開 する 事 が で きま す 。 


7.2 STOP 文 


STOP 文 は FORT WM か ら 拡 張 さ れ て いま す 。 


文法 : STOP 文字 列 " まだ は 
STOP n また は 
SD'OE 


STOP 文 は , プロ グラ ム を 終了 させ ます 。 コン ソー ル に , 文字 列 か , また 
は 5 けた 以内 の 整数 か . また は SOP だ け か を 表示 し て プロ グラ ム は 終了 し 
ます 。 (CPM の コマ ンド 待ち 状態 に 戻り ます 。 ) 

STOP 文 の か わり に CALLEX 1 工 と する 事 に よっ て も プロ グラ ム を 
終了 させ る 事 が で きま す 。 こ の 場合 は コン ソー ル に 何 も 表 示せ ず , CPM の 


コマ ンド 待ち 状態 に 戻り ます 。 
7.3 END 文 


FORT M で は END 行 と な っ て いま す が , この FORTRAN で は END 文 
と な っ て いま す 。 この 違い は , 複 文 に し て も よい し , 2 行 に また が っ て も よい 
と いう 意味 で す 。 


プロ グラ ム 単 位 を コン パイ ラ に 指示 する の が END 文 で す 。 一 つの プロ グラ 
ム 単 位 は その 最終 文 が END 文 で な けれ ば な り ま せん し 1 つの プロ グラ ム 単 位 
に は 2 つ 以 上 の END 文 は 存在 で きま せん 。 


また , END 文 は 実行 文 と し て 実際 に アロ グラ ム を 終了 させ る 事 が で きま す 。 
この 場合 , この FORTRAN は 


SEOP END ドド FN 一 多大 7 区 天 


と 表示 し て プロ グラ ム を 終了 させ ます 。 又 X 双 XX は , END 文 の 存在 し た 
プロ グラ ム 単 位 の 名 前 で す 。 


8 ・ 配 列 


配列 に 関し て は FORT MV の 規約 に 従っ て いま す 。 こ の FORTRAN に 於 け 
る 配列 に 対す る 制限 は 以下 の 通り で す 。 


(1 ) 次 元 は 7 次 元 ま で で す 。 
(2 ) 一 つの 配列 の 要素 の 数 が 5461 を 越え て は いけ ませ ん 。 


配列 の 宣言 に 関す る 注意 を 8 . 1 に 述べ ます が , 一 般 的 な 事 は FORT MV の 
規約 に 従っ て いま すか ら 参 考 書 な ど を 参照 し て 下さ い 。 


8.1 配列 の 宣言 (DIMENSION 文 ) 


DIMENS ION 文 は FORT M の 規約 に 従っ て いま す 。 配列 の 寸法 は 主 プ 
ログ ラム で は 必ず 整定 数 で な けれ ば な り ま せん が , サブ ルー チン 副 プ ログ ラム , 
関数 副 プ ログ ラム の 中 で は 整 変数 が 許さ れ て いま す 。 整合 配列 に 関し て は 参考 
書 な ど を 参照 し て 下さ い 。 
文法 : DIMENSION YK(nmi,」 nz 」 …… nm うだ で の 


vy は 配列 名 , n」 は 整 変数 名 ある い は 整定 数 m 三 7, n」 Xnz ※X…… nm 
全 5461 


く 例 > 


REAL MOMENT 
DIMENSION MOMENT(1000) 


BMNS TIGON- だ で 2 4 69 BIGS か 4 6 うり 


プロ グラ ム 実 行 中 に は , 配列 の 添字 が 寸法 を 越え て いる か どう か を 調べ る 事 


は し ませ ん 。 従っ て 以下 の 様 な 事 が 可能 に な り ま す 。 
COMMON プ DUMMY プ A(1000), B(1000) 


と し て お く 事 に より , A( 1320 ) と し て B( 320 ) を アク セス する 事 が で 
きま す 。 


配列 の 占め る メモ リ 上 の 容量 は , 要素 数 *6 バ イト で す 。 こ れ は 整数 型 , 実 
数 型 , 論理 型 , 倍 精度 実数 型 を 通し て 共通 で す 。 


配列 の 宣言 は 各 配 列 に 対 し て 一 度 し か し て は いけ ませ ん 。 
8.2 深 字 
配列 の 添字 は , FORT WM から の 拡張 と し て , 定数 と 変数 (配列 要素 と 関数 
は 使え な い ) の 算術 式 が 許さ れ て いま す 。 実 数 型 の 算術 式 も 許さ れ て いま す が , 
式 が 評価 され た 後に 小数 点 以下 を 切り 拾 て ます 。 式 に つい て は 5. 2 を 参照 し 
て 下さ い 。 


ぐ 添 字 の 使用 例 


の iC08*) 
AG ip 3 


A(K+ 本 )=A(K)+A( 了 」) 
A(K)=A(K)+B(jJ, KK)*C(K, 1) 


A(2. 3 ) は A(2 ) を 指し ます 。 


9・ 副 プロ グラ ム 
副 プ ログ ラム は FORT IM の 規約 に 従っ て いま す 。 副 プロ グラ ム は 3 種類 に 
分 けら れ ま す 。 す な わ ち 


1 ) サブ ルー チン 吾 プ ログ ラム 
2 ) 関数 副 プ ログ ラム 
3) 組込み 関数 


FORT M の 文 関数 は サポ ー ト され て いま せん 。 関数 副 プ ログ ラム に 書き 直 
し て 下さ い 。 


定数 を 副 プ ログ ラム へ 実 引数 と し て 引き 渡す 場合 は 副 プ ログ ラム 中 で 書き 変 
えな い 様 に し て 下さ い 。 その 場合 , 正常 な 動作 は 保証 され ませ ん 。 副 プロ グラ 
ム 名 は 5 文字 以内 で A, B, C, D, E, H, し , PSW と いう 名 前 は 使え ま 


せん 。 
すべ て の 副 プ ログ ラム は 主 プ ログ ラム と 同時 に コン パイ ル し な く て は な り ま 


せん 。 


$ サブ ルー チン 却 


SUBROUTINE 文 は FORT M の 規約 に 従っ て いま す 。 サ ブル ー チ ン 名 
は 5 文字 以内 で な けれ ば な り ま せん 。 


文法 : SUBROU 工 INE サブ ルー チン 名 ( vi, vz , vs ,」 …… 


Vn ) 
Yi は 変数 名 , 配列 名 


vi と し て 外部 手続 き の 仮 の 名 前 は 許さ れ て いま せん 。 配列 名 の 場合 は , サ 


プル ー チ ン 副 プロ グラ ム 内 で 宣言 され な けれ ば な り ま せん 。 整合 配列 は 許さ れ 
て いま す が , 配列 の 宣言 子 添字 は vi 一 v』 の 中 に 含ま れ て いな けれ ば な り ま せ 
ん 。 

( ) 内 は 仮 引数 を 使用 し な い 場 合 は 省略 で きま す 。 


ぐ 整 合 配 列 の 例 > 
SUBROUTINECN, DIM, 」) 
DIMENSION DIMKCN) 


9.2 FUNCTION 文 


FUNCT ION 文 は FORT M の 規約 に 従っ て いま す 。 関数 名 は 5 文字 以内 
で な けれ ば な り ま せん 。 関数 の 型 は 暗黙 的 な 約束 に 従っ て 副 プ ログ ラム 名 で 指 
定 す る か FUNCTION 文 の FUNCTION と いう 語 の 前 に , INTEGER, 
REAL, DOUBLE PRECISION, LOGICAL を つけ る 事 に よっ て 
宣言 し な けれ ば いけ ませ ん 。 FUNCT ION 文 で は 必ず 一 つ 以 上 の 仮 引数 を 持 
た ね ば な り ま せん 。 関数 副 プ ログ ラム 名 は その 副 プ ログ ラム 中 で 変数 名 と し て 
副 プ ログ ラム が 呼ば れる 度 に 代入 され な けれ ば な り ま せん 。 


文法 : 関数 の 型 FUNCTION ファ ンク ショ ン 名 (vi …… vn ) 


実数 の 型 は INTER, REAL, DOUBLE PRECISION, LOGI 一 
CAL の いずれ か , また は な く て も よい 。 

Yi で vm に つい て は サブ ルー チン 文 を 参照 ( 9. 1 ) た だ し 関数 の 場合 は 
省略 する 事 は で き な い 。 


9.3 CALL 文 


CALL 文 は FORT M の 規約 に 従っ て いま す 。 サ ブル ー チ ン の 呼び 出し の 
際 に は 参照 する 側 と 参照 され る 側 の 実 引数 の 数 と 型 が 一 致し て いな けれ ば な り 
ませ ん 。 こ の 規約 を 破る と 実行 時 に ARG CNT エラ ー が 起こ り ま す 。 


文法 : CALL サブ ルー チン 名 ( 実 引数 並び ) 
く 例 > 
ON 馬 晴 。 SU おぎ ( 年 に 宙 35N) 


CALL NOAUG 


9.4 RETURN 文 
FORT V の RETURN 文 と , その 拡張 と し て の 多重 リタ ー ン 文 が 用 意 さ 
れ て いま す 。 副 プロ グラ ム 中 で RETURN 文 を 実行 する 事 に よっ て , 副 プ ロ 


グラ ム を 呼び 出し て いた プロ グラ ムッ ム 単位 に 戻り ます 。 主 プロ グラ ム 中 に 
RETURN 文 が 存在 し て は いけ ませ ん 。 


9.5 多重 リタ ー ン 文 

多重 リタ ー ン 文 は FORTWV の RETURN 文 の 拡張 と し て 用 意 さ れ て いま す 。 
一 部 の FORTRAN で サポ ー ト され て いま す が , 文法 的 に 異な っ て いる 場合 が 
あり ます の で プロ グラ ム を 移植 する 際 に は 注意 し て 下さ い 。 

文法 : RETURN 仮 引数 名 

説明 : 例 に よっ て 説明 し ます 。 

ある プロ グラ ム 単 位 で 


AL XRRK (位牌 き 和 Cm の EZ の 
実行 文 a 


2 実行 文 c 


END 
SERODOETN 到 RCT.A。 IDiJ) 


RETURN 


RETURN 1 


RETURN J 
END 


この 例 で は , サブ ルー チン 副 プ ログ ラム XR の 1 番 と 4 番目 の 仮 引数 が 多重 
リタ ー ン の 為 の 仮 引 数 と な っ て いま す 。 XR の 中 で 3 ケ所 の RETURN 文 が 
あり ます が , その な か で RETURN 1 の 様 に 仮 引数 名 を 文末 に 付け て いる 
RETURN 文 が あり , また , その 仮 引数 に 対応 する 実 引 数 に は , 立つ き の 文 
番号 が 書か れ て いま す 。 この 場合 に , XR 中 で 例え ば RETURN 1 を 実行 す 
る と , 次 は 1 に 対応 する 文 番号 1 を 持つ 実行 文 b か ら 実行 が 始ま り ま す 。 XR 
中 で RETURN 本 が 実行 され る と , CALL し た 側 の ルー チン の 実行 文 C か 
ら 実 行 が 再開 され ます 。 単 な る RETURN 文 を 実行 する と , CALL 文 の 次 
の 文 a か ら 実 行 が 再開 され ます 。 こ の 様 に 呼ば れ た 方 の ルー チン か ら , 呼ん だ 
方 の ルー チン の プロ グラ ム の 流れ を 制御 する 事 が で きま す 。 

多重 リタ ー ン は サブ ルー チン 副 プ ログ ラム で の み 使 用 する 事 が で きま す 。 従 
っ て 関数 副 プ ログ ラム で は 使用 する 事 が で きま せん 。 


ぐ 注 > 多重 リタ ー ン 文 は アプ ログ ラム の 流れ を わか り に くく する の で , 1〒 文 , 


計算 型 GOTO 文 な ど を 使用 し た 方 が よい と 思い ます 。 


9.6 BLOCK DATA 文 


BLOCK DATA 文 は FORT M の 規約 に 従っ て いま す 。 名 前 付 共通 プロ 
ッ ク を 初期 化す る 為 の 副 プ ログ ラム で す 。 実行 文 を 含ん で は いけ ませ ん 。 


ぐ 注 ツ 名 前 付き 共通 プ ブロック の 初期 化 は , どの プロ グラ ム 単 位 で も 可能 で す 。 
従っ て BLOCK DATA 文 は FORTT M と の 互換 性 の 為 に だ け 用 意 さ れ て い 


ます 。 


10・ 入 出力 


10.1 FORTRAN の 入出 力 文 
10.1.1 一 般 的 な 説明 


この FORTR AN の 入出 力 文 に は 以下 の 様 な も の が あり ます 。 す な わ ち 
(1) FORMA 工 付き 入出 力 文 

(2 ) 自由 形式 の 入出 力 文 

(3) FORMAT な し の 入出 力 文 


FORMAT 付 き 入 出力 文 は , 入出 力 並 びに 指定 され た も の を 指定 され た 書 
式 仕様 に 従っ て ファ イル や コン ソー ル や リス ト デ バ イス と デー タ を や り と り し 
ます 。 出力 の 形式 は 書式 仕様 に 従い ます が 基本 的 に は 右 ぞ ろ え で す 。 


自由 形式 の 入出 力 文 は BASIC の PR INT 文 , INPUT 文 に 似 て いま す 。 
入力 時 は 各 変 数 を コン マ で 区 切っ て 入力 すれ ば よく , 出力 時 は 自動 的 に 見 や す 
い 形 に 編集 し て くれ ます 。 


FORMAT な し の 入出 力 文 は , 高速 に 大 量 の デー タ を ファ イル に 書い た り 
読ん だ りす る 為 に 使い ます 。 デ ィ ス ク の 使用 量 も FORMAT 付 き 入 力 文 に 比 
べ て 格段 に 少な く な り ま す が , アス キー ファ イル で は あり ませ ん か ら , CP ブ 
M の TYPE コ マン ド で 見 る 事 は で きま せん 。 


この FORTRAN は 論理 装置 番号 0 と 1 を コン ソー ル の 入力 と 出力 と し て 割 
り 当 て て いま す 。 これら の 機 番 は OPEN し た り CLOSE し た りす る 事 が で き 
ませ ん 。 FORMAT な し 入力 も 許さ れ て お ら ず , これ ら の 操作 を 行なう と 実 
行 時 エラ ー が 発生 し ます 。 


TYPE 文 と ACCEP 華 文 が , 用 竜 さ れ て いま す 。 コンソール と の 入出 力 に 
使う 事 が で きま す 。 


配列 内 の 書式 仕様 も 用 意 さ れ て いま す 。 変 数 一 つ 当 り 6 バ イト を 占め ます の 
で , A6 を 使用 し て 下さ い 。 詳し く は 参考 書 P.253 を 参照 し て 下さ い 。 参考 
書 の A 8 は A6 と 読み 直し て 下さ い 。 


ぐ 配 列 内 の 書式 仕様 の 例 > 


DIMENSION FORMKC10) 
READ(C0, 10) 'DATA FORMAT?「, FORM 


10 FORMATC10A6) 
READ( 4, FORM)A, B, C 


WRITE(5, FORM)P, Q, R 


コン ソー ル か ら 
PMSST FT 10. 5)。 要 軍人 7 デ ) 

と 打ち 込み ます 。 左右 の か っ こも 含め て 打ち 込み ます 。 す る と , この 様 な 
FORMA 丁 文 を プロ グラ ム 中 に 書い て お いた の と 同じ 様 に 入出 力 が 行なわ れ 
ます 。 コン パイ ル を し 直さ な く て も , ダイ ナミ ッ ク に 書式 を 変更 で きる の で 便 
利 で す 。 


10.1.2 入出 力 並び 


入出 力 並 び は FORT M から 拡張 され て いま す 。 入力 と 出力 に 共通 で す 。 即 
ち 


(1 ) 変数 名 

(2 ) 配列 要素 名 

(3 ) 配列 名 
(4) DO 形 並び 

更に FORT MV の 拡張 と し て 


(5) 文字 列 
(6) 定数 ( 出力 の 時 の み で す ) 


また は これ ら を コン マ で 区 切っ て 並べ た も の で す 。 


配列 名 は , 配列 名 を 書く 事 に よっ て その 配列 の 要素 すべ て を 表示 する 事 が で 
きま す 。 


DO 形 並 び は , 入出 力 並 び の あと に コン マ で 区 切っ て , 

1 三 mmf。 Tm2 。 Tm3 

と 書き ( DO 形 仕様 ) 全体 を か っ こ で くく っ た も の で す 。 ii, mi, mz, 
ms は DO 文 で 定義 し た も の と 同じ で す 。 DO 形 並び は 任意 回 入れ 子 に する 事 
が で きま す 。 
く 例 > 

呈 ARBC きす う ) ユー1 と 社 2) 


GDIERRG 3 PC5 う , FC 7 ) う 名 表示 : 泊 ま す 。 


NSR は か 6 馬山 すま 泌 衣 手 選 全学 1 と 305 
2 ) 


生ま まま まま 宣 才 3 ) /: すさ まま 生 * ま テ | 
2.F(2. 1)…… 
と 表示 し ます 。 


文字 定数 は 入力 文 で も 出力 文 で も 使用 する 事 が で きま す 。 入力 文 で は , 入力 
促進 記号 と し て , 出力 文 で は 出力 の 識別 と し て 使用 で きま す 。 


く 例 > 
WRITEB20 は 全う の 肖 三 ざま 洪 疾 
TYPE "The answer is ',ANS 


計 SDC 0。 の JR ー り 。、 
ACCEPT "Enter quantity ', QUANT 


コン ソー ル 以 外 の 入力 文 で 文字 定数 を 使用 する と , 実行 時 エラ ー と な り ま す 。 


10.2 READ 文 


READ 文 は プロ グラ ム メ 実 行 中 に コン ソー ル や ファ イル か ら デ ー タ な ど を 入力 す 
る 為 の 文 で す 。 論理 装置 番号 0 は コン ソー ル の 為 に 予約 され て いま す 。 論理 装置 番 
号 1] は コン ソー ル 出 力 の 為 の も の で READ 文 で は 使用 で きま せん 。 それ 以外 
の 論理 装置 番号 は 入力 する 前 に OPEN 文 を 使用 し て OPEN し な けれ ば な り 
ませ ん 。 FORMA 工 付き の 入力 文 の 場合 は 対応 する 文 番 号 を も つ 実 行文 は 
FORMAT 文 で な けれ ば な り ま せん 。 文 番号 の か わり に 書式 を 含む 配列 名 を 
書い て も よろ し い 。 更に *※ を 書い て 自由 形式 の READ 文 と し て も よろ し い 。 
書式 な し READ 文 も 使用 する 事 が で きま す 。 


文法 : READ( 論 理 装置 番号 , FORMA 華 文 の 文 番 号 ) 入力 並び 


READ( 論 理 装置 番号 , * ) 入 力 並び 


READ( 論 理 装置 番号 ) 入 力 並び 


更に , どの 形式 の READ 文 に も ERR 時 , END 時 の 飛び 先 を 指定 する 事 
が で きま す 。 (省略 する 事 は も ちろ ん で きま す 。 ) 


文法 READ(u, f, ERR テ 文 番号 1 END テ 文 番号 2 )k 


un は 論理 装置 番号 , f は 書式 仕様 で す 。 文 番 号 1 は , FEAD 時 に エラ ー が 
起 っ た 時 に 制御 を 移す べき 文 号 条 , 文 番号 2 は END OF FILE 時 に 制御 
を 移す べき 文 番号 で す 。 ERR は , bad sector な どの エラ ー に 対応 する も 
の で , 書式 と 実際 に 存在 する デー タ の 形式 が 異な っ て いた 場合 (input format 
error) な ど に は , ERR SE 華文 で 指定 し て いな い 限 り , プロ グラ ム は 終了 し 
て し まい ます 。 


く 例 
Oi 三 40 
1 READ(4, 100,.ERR=ー900, END=200)A 
100_FORMAT(F10.0) 
に ンー よー 6 
GOTO1 
2 の 0 ERR で SM で る S 
CALL EXIT 
900 TYPE 'INPUT FILE ERROR'" 
CALL EXIT 
END 


入出 力 並び に つい て は 10. 1. 2 で 説明 し まし た 。 


10.3 WRITE 文 


W R I TE 文 は , プロ グラ ム 実 行 の 結果 な ど を コン ソー ル や ファ イル に 出力 
する 為 の 文 で す 。 装置 番号 1 が コン ソー ル へ の 出力 の 為 に 予約 され て いま す 。 
0 は 使用 で きま せん 。 それ 以外 の 装置 番号 は OPEN 文 又は LOPEN 文 で 
WRITE 文 を 実行 する 以前 に OPEN し て お か ね ば な り ま せん 。 


FE ND= テ は 使用 する 事 が で きま す が 何 の 機能 も 意味 も 持ち ませ ん 。 


文法 : WRITE( 装 置 番号 , 書式 , END= 文 番号 , ERR 一 文 番号 ) 出力 普 
び 


END 三 文 番 号 , ERR 一 文 番 号 は 省略 する 事 が で きま す 。 
く 例 > 
NAMSTEC 1 291 に PA 2 洒 


WRITEC4)(1I, = テ 1, 10) 
WRITE(6, 12. ERR=ー99)LOOP, NUM 


10.4 MEMORY か ら MEMORY へ の 入出 力 文 


FORT WM か ら の 拡張 と し て ENCODE 文 , DECODE 文 が 用 意 さ れ て い 
ます 。 ENCODE 文 , DECODE 文 は , FORT 77 に 於 ける 内 部 ファ イル 
の 前 身 に 当る も の で , 変数 間 で 形式 の 違う 形 の デー タ の や り と り を 行う 事 が で 
きま す 。 BAS 1IC で は MK 1 $ 関 数 , CV 関数 に 対応 し ます 。 単純 変数 , 配 
列 要 素 な ど は 6 バイ ト を 占め る 事 に 注意 し て 下さ い 。 


10.4.1 DECODE 文 


DECODE 文 は READ 文 に 似 て いま す 。 メ モリ 内 (変数 内 ) に アス キー コ 
ー ド で 書か れ た 数 字 か ら , FORTRAN の 数 値 の 内 部 形式 に 変換 し ます 。 長 
さ は バイ ト 単 位 で 指定 し ます 。 

文法 : DECODE (変数 名 , 長 さ , 書式 ) 入 力 並び 

変数 名 (配列 名 か 単純 変数 名 に 限り ます ) 


長 さ , 読み だ すべ き バ イト 数 , 
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書式 ., FORMAT 文 の 文 番 号 


く 例 
INTEGER YY, MM, DD 
DIMENSION A(2) 
READ(4, 10)A 
10 FORMAT(C2A6) 
DECODE(A, 80, 1 1 )YY, MM, DD 
お EOIDGE 約 2。 EE の 。. 下 2 


この 例 で は , 装置 番号 4 の ファ イル か ら , ム 変 換 で 年 月 日 (84 一 02 一 14) 
を 読み 込み 整数 に 変換 し て いま す 。 


10.4.2 ENCODE 文 


ENCODE 文 は , DECODE 文 の 反対 の 動作 を 行ない ます 。 
文法 ENCODE( 変 数 名 , 長 さ , 書式 ) 出力 並び 


く 例 > 

DINBINS TON AG 2),。 EE(2)。 TGZ2) 
INTEGER YY, MM, DD 

Wei. 

MM= テ 1 0 

D や =2 1 
ENCODE(A, 8, 10)mm, DD, YY 

虹 NNGEMBICB SS。 10 う DD。 mm YY 
ENCODE( 了 J, 8, 10)YY, mm, DD 
章 間 時 ME の 2 っ 才 1 こ こ U2 う 
WIRILGEE(1.11) LAMEERTGAN  。A 
RSDEC 1L まり て URIOPT SN 。 季 
WIRNKEREBC 1 14 う コ 了 だ PANESEE*。 ず すう 
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11 FORMATC(X, A20, 2A6) 


10.5 FORMAT 文 と 書式 記述 子 


FORMA 丁 文 は FORTM の 規約 に 従う 他 に , いく つか の 拡張 が 用 意 さ れ て 
いま す 。 FORMAT 文 は 入出 力 の 形式 を 制御 する 為 の 文 で 必ず 文 番号 を 付け 
て 使用 し ます 。 FORMAT 文 に 関す る 細か な 規約 は 参考 書 P.255 を 参照 
し て 下さ い 。 こ こ で は この FORTR AN に 特徴 的 な 欄 記述 子 に つい て の み 詳 し 
く 説 明 し ます 。 


この FORTRAN は 実数 値 0 を F 変 換 , 変換 , D 変 換 に か か わら ず 0. 0 


と 表示 し ます 。 0. 0000 …… と 表示 し た 場合 は , 表示 けた より 小さ い 値 で 
あっ た 場合 で す 。 


また , 変換 な ど で 指 定 し た 範囲 を 越え た 場合 に は *X * x * で 欄 を 埋め ます 。 
ぐ 例 F3. 0 で 1200. 0 を 表示 し よう と し た 場合 
※ メ ※※ と 表示 され ます 。 

F7. 3 で 一 123. 456 を 表示 し よう と し た 場合 
※※ メ ※ メ メメ ※※※ と 表示 され ます 。 


10.5.1 X 変 換 (wX) 


w は 1 か ら 255 まで の 整定 数 で す 。 空白 を w 個 出力 し ます 。 入力 時 は w け 
た 読み と ば し ます 。 
以下 は 同じ 意味 で す 。 


10.5.2 | 変換 (Iw) 


入力 時 空白 は 0 と 同じ 扱い と な り ま す 。 整数 は 右 ぞ ろ え で 読み 込ま れ ま す 。 


Crk urn kk の 7. , を 1 1 0 で 読み 込ん だ 場合 は 2 7 0 と な り ま す 。 


10.5.3 A 変 換 (Aw) 


単純 変数 また は 配列 要素 に は 6 文字 入力 , 出力 する 事 が で きま す 。 ム 変 換 は 
左 ぞ ろ え で す 。 


10.5.4 / 区 切り 


は 記録 ( レコ ー ド ) の 区 切り を 示し ます 。 


10.5.5 Z 区 切り 


Z は , 出力 に の み 用 いる 事 が で きま す 。 出力 後に キャ リッ ジリ ター ン , ライ 
ン フ ィ ー ド を 行ない ませ ん 。 


く 例 ラ 
WRITE(1, 10) 
10 FORMAT( 'INPUT X ',Z) 


あ 


READ(0, *※) 
WR 1 TE 文 が 実行 され た 後 , カー ソル 位置 は 
INPUT_.X、 較 
と な り ま す 。 BASIC の PR INTT 文 に 於 ける セミ コロ ン に 対応 し ます 。 


10.5.6 し 変換 (Lw) 


論理 型 変数 は 工 変換 を 用 いて 入出 力 し ます 。 FORT MV と 異な る 点 は すべ て 
空 折 な ら ば . FALSE. と な り ま す 。 一 番 左 の 英字 が せ F で も し で も な い 場 合 
は 選 ラ ー 導 な まゆ 。 


10.5.7 T 変 換 (Tw) 


本 変換 は FORT VM に は あり ませ ん 。 工 変換 は 左端 か ら の けた 位置 を 指定 し 
ます 。 工 変換 は 双 変 換 の 絶対 位置 版 だ と 思え ば よい と 思い ます 。 双 変 換 は 直前 
の 欄 記述 子 の 次 の けた か ら け た を 動か し ます が , 変換 は 必ず 左端 か ら け た を 
動か し ます 。 


く 例 > 
READ(1,. 56)1, LOT 
56 FORMAT(I10,T20, I4) 


デー タ が , 


と な っ て いた 場合 に は し O エ に 4728 が 代入 され ます 。 
06 の 3) 人 
RehEEB( TS3 諸 T 
34 FORMAT( " 井 井 井 井 井 井 井 井 井 井 ", 5, I4) 
を 実行 し た 場合 
$$$$$S1234$ 
と 出力 され ます 。 


10.5.8 K 変 換 (Kw) 


K 変 換 も FORT M か ら の 拡張 で す 。 変 数 の 内 容 6 ヾ イト を 12 けた の 16 
進数 で 表示 し ます 。w は 一 つの 変数 当り 6 バイ トン ノ 変 数 X2 け た プ バ イト = テ 
12 け た まで 可能 で す 。 も し 12 より 少な い 場 合 は メモ リ の 下位 番地 か ら 表 示 
され ます 。 


く 例 > 
J=1 
WRITE(1, 99)J 


99 FORMATC(K12) 
を 実行 する と 
100000000081 
% と 表示 され ます 。 この 意味 は , 4. 1 を 参照 し て 下さ い 。 


10.5.9 F 変 換 (Fw・d) 


FORT WM の 規約 に 従っ て いま す 。w と d は 充分 に 注意 し て 設定 し て 下さ い 。 
w, d は 符号 な し 整定 数 で す 。w は 欄 の 長 さ , d は 小数 点 以下 の 桁 数 で す 。 w, 
d は 変換 以外 は 同じ 意味 で す 。 

w け た 読み 込ん だ 後に , 小数 点 を 含ま な か っ た 場合 に は , 右 か ら d け た 目 に 
小数 点 を 挿入 し ます 。 も ちろ ん w け た の 中 に 小数 点 を 含ん で いる 場合 は そちら 
が 優先 し ます 。 こ れ ら の 理由 か ら , 入力 時 に は Fw. 0 を 使用 する 事 を すす め 
まま 8 


10.5.10 E 変 換 (Ew・d) 


E 変 換 は FORT M の 規約 に 従っ て いま す 。 注意 すべ き 事 を 以下 に あげ ます 。 
(1) 指数 部 は 3 けた まで 許さ れ て いま す 。 


C2) 入力 時 , 小数 点 を 省略 し た 場合 は , 右 か ら d け た 目 に 小数 点 を 挿入 し 
ます 。 
C3) 入力 時 に は 右 づ め に な り ま す 。 右 に 空白 が ある 場合 は 0 と な り ま す 。 
C4) EE と いう 文字 が 入力 欄 に な い 場 合 は 〒 交 換 と 同じ で す 。 
入力 欄 欄 記述 子 内 部 の 値 
12345E00  E8.2 0.12345x10^ 
E10.0 不可 能 で す 。 


せい 得 衝 家 も こっ) 色 二 2 6. 12 す 8 交 や が 


10.5.11 D 変 換 (Dw・9) 


D 変 換 は FORTW の コン パチ ビリ ティ の 者 に の み 用 意 さ れ て いま す 。 実質 
的 に は E 変 換 と 同じ で す 。 


10.5.12 G 変 換 (Gw ・d) 

変換 は 入力 に も 出力 に も 使え ます 。 FORT IM の 規約 に 従っ て いま す 。 
ぐ 入 力 の 場合 > 

入力 並び が 整数 型 の 場合 に は I w と 同じ で す 。 

入力 並び が 実数 型 の 場合 は Ew. d と 同じ で す 。 

く 出 力 の 場合 > 

出力 並び が 整数 型 の 場合 に は I w と 同じ で す 。 


出力 並び が 実数 型 の 場合 は 以下 の 様 に な り ます 。 r を その 実数 の 絶対 値 と す 


. れ ば , 
- 1 会 r ぐ 1 1: 6 


お 者 ぐ 1 0 GE の 0 往 ー 9 
10XX(d-ー2) 主 r ぐ 10Xx(qー1)F(Cw-5). 1, 5XX 
本 963K 一 1 ROSE 昌 NeoyeiO 2 OS5:6 
一 般 的 に は 


Re デ 5). で で ぜ 一 ぐ ⑥ 指 材 9 35 


と な り ま す 。 


10.5.13 欄 記述 子 の くり 返し 


欄 記述 子 は くり 返し 指定 が 可能 で す 。 FORT M の 規約 に 従っ て いま す 。 い 
くつ か の 欄 記述 子 や 欄 区 切り の 集まり を くり 返し て 使用 する 場合 に は その 集 ま 
り 全 体 を か っ こ で くく り , その 直前 に くり 返し の 回 数 を 指定 し ます 。 

一 般 に 転送 され る デー タ の 数 より も 欄 記述 子 の 数 の ほう が 少な い 場 合 に は 最 
後 か ら 2 番 目 の 右 か っ こ に 対応 する 欄 記述 子 の 集まり に 戻っ て そこ か らく りか 
え し て 使用 され ます 。 


くり 返し の 深 さ は 2 重 以下 の も の の み 許さ れ て いま す 。 
ぐ 例 > 
READ(2. 10)KNT, (ZI),. エニ 1. KNT) 
10 FORMATCI5 ン ノン CF10.5)) 


Z ( 1 ) は すべ て F 1 0 . 5 で 読み 込ま れ ま す 。 


1105 RCIRIMIA3NCO2CT 95 13ECT PO , 2T 2 うう う 
は 使用 で きま せん 。 


10.5.14 文字 列 の 出力 


書式 つき 出力 文 で は 文字 列 の 出力 が 許さ れ て いま す 。 文字 列 は 引用 符 で か こ 
み ま す 。 引 用 符 を 出力 する 場合 は 2 つの 連続 し た 引用 符 を 使用 し ます 。 へ ヽ へ ( バ 
ックス ラッ シュ ) は 使用 で きま せん 。 


HH 変換 を 使用 する 事 が で きま す 。 


0 以外 の 1 6 進数 で 表記 され た アス キー コー ド を バッ クス ラッ シュ で 囲む 事 
に よっ て 出力 する 事 が で きま す 。 


& 記 号 に 引 続 いた 英字 に よっ て コン トロ ー ル コー ド を 出力 する 事 が で きま す 。 
WW 抽 EE て 1 、 40 うう 
人 OTRIOIRIMAT で すき マ RBST OF で ASO NH Ne “) 


は , 
TEST OF ASCL.A( 改 行 ) と 出力 され ます 。 


10.6 自由 形式 の 入出 力 
10.6.1 入力 


自由 形式 の 入力 が 用 意 さ れ て いま す 。 コ ンマ か レコ ー ド 区 切り (キャ リッ ジ 
リタ ー ン ) に よっ て 入力 を 区 切り ます 。 


文法 : READ( 論 理 装置 番号 , * ) 入 力 並び 
ACCEPTT、 入 力 並び 


く 例 > 
READ(0, *)A, B, C 


コン ソー ル か ら 
本 98 寺 あ ご 2 の 本 人 > 3N6rS9: ジ 
と 入力 する と , それ ぞ れ が A, B, C に 代入 され ます 。 


すべ て の 入力 並び に 対す る 入力 が 行なわ れる まで , 続々 と レコ ー ド を 読み 進 
み ま す 。 BAS 1C の Input 文 と 同じ で す 。 


10.6.2 出力 


自由 形式 の 出力 が 用 意 さ れ て いま す 。 〇 変換 で 出力 され ます 。 
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自由 形式 の 入出 力 は ファ イル に 対し て も 行う 事 が で きま す 。 
文法 : WRITE( 論 理 装置 番号 , ※ ) 出 力 並び 


TYPE 出力 並び 


10.7 書式 な し 入出 力 文 


書式 な し 入出 力 文 が 用 意 さ れ て いま す 。 FORT M の 規約 に 従っ て いま す が , 
他 の FORTRAN( 例 えば マイ クロ ソフ ト ・EFORTRAN ) の 書式 な し 入出 
力 文 で 出力 し た ファ イル を 読み 込む 事 は で きま せん 。 数値 の 内 部 形式 が 異な っ 
て いる か ら で す 。 この FORTRAN の 書式 な し 出力 文 で 出力 し た ファ イル か ら 
読み 込む 事 が 一 般 的 で す 。 こ の 様 な 制限 が あり ます が , 書式 な し 入出 力 文 は 大 
量 の デー タ を 高速 に 入出 力 する 為 に 使用 し ます 。 単純 変数 又は 配列 要素 一 つ 当 
り 6 バイ ト し か 使い ませ ん か ら , 大 量 の デー タ を 小さ な ファ イル に し まう 事 が 
で きま す 。 


く 注 

書式 な し 入力 文 は 。 ファ イル の 内 容 を 調べ ず に 変数 に 代入 し ます 。 従っ て そ 
の 変数 に . 正しい 表現 の 実数 ある い は 整数 が 代入 され て いる か どう か は 使用 者 
の 責任 で す 。 正しく な い 形 式 で 代入 され た 変数 に 対し て 算術 演算 を 行う と エラ 
ー が 起り ます 。 


書式 な し の ファ イル の End of file 記 号 は 6 バイ ト の 連続 し た OF 
で す 。 


文法 : WRITE( 論 理 装置 番号 ) 出力 並び 


READ( 論 理 装置 番号 ) 入 力 並 び 
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く 例 > 

WERE で 1 で 遇 二 ボサ う 
WRITE(4. , ERR= ニ 66)ARRAY 
READ(4)N, (ARRAY(1), 1I=1, N) 


10.8 RFWIND 文 


リ ワ イ ンド 文 は FORT M の 規約 に 従っ て いま す 。 フ ァイル ポイ ンタ を ファ 
イル の 最初 に 位置 付け ます 。 


文法 REWIND 論理 装置 番号 


10.9 BACKSPACE 文 


BACKSPACE 文 は サポ ー ト され て いま せん 。 コン パチ ビリ ティ の 為 に , 
BACKSPACE 文 が 実行 され る と その 旨 を コン ソー ル に 出力 し ます 。 


文法 BACKSPACE 論理 装置 番号 


10.10 ENDFILE 文 


ENDF I LE 文 は FORT MV と の コン パチ ビリ ティ の 為 に 用 意 さ れ て いま す 。 
論理 装置 番号 の ファ イル を 強制 的 に クロ ー ズ し ます 。 現在 の ファ イル ポイ ンタ 
以降 に デー タ が 存在 し た と し て も , それ は すべ て 失 な われ ます 。 現在 の ファ イ 
ルポ イン タ の 位置 に EOF を 書き 込み ます 。 


文法 : ENDFILE 論理 装置 番号 


ぐ 注 ENDF I LE 文 は CLOS 到 文 と は 異な り ま す 。 


ファ イル に 対し て 一 度 で も 書式 な し 入出 力 を 行なっ た 場合 に は 6 バイ ト の 0 
FF 日 を , 一 度 も 書式 な し 入出 力 を 行なわ な か っ た 場合 に は コン トロ ー ル ク Z 
( 0 1 AH) を 書き 込み ます 。 


ENDF 1LE 文 を 実行 後 は その 論理 装置 番号 は 解放 され ます 。 再び OPEN 
する まで は 使え ませ ん 。 


10.11 FORTRAN の 入出 力 と CP/M の ファ イル 


CPM の ファ イル と 入出 力 と に 関す る 注意 を 以下 に 個 条 書 き しま す 。 充分 
に 注意 し て 使用 し て 下さ い 。 


(1 ) 論理 装置 番号 と CPM 上 の ファ イル と の 結び つけ は , OPEN 文 ま た 
は LOPEN 文 (11. 12 , 11. 10 ) を 用 いて 行ない ます 。 


(2) 0 か ら 7 まで の 8 個 の 論理 装置 を 使用 する 事 が で きま す 。 0 は コン ソー 
ル か ら の 入力 , 1 は コン ソー ル へ の 出力 と し て , 予約 され て いま すか ら 
OPEN する 必要 は あり ませ ん 。 そ れ 以 外 の 2 一 7 を 使用 する 時 は 必ず 
OPEN し な けれ ば な り ま せん 。 


「 バ 


(3 ) CON : と いう 装置 名 を 使用 し て 2 一 7 の 論理 装置 番号 を コン ソー ル に 
割り 付け られ ます が , これ ら に 対し て は 書式 な し 入力 文 , REWIND 
文 , ENDF I LE 文 , SEEK 文 は 使用 で きま せん 。 


(4) 既に 存在 する ファ イル に 出力 し よう と する 場合 に は , その ファ イル を 
DELETE サ ブルー チン を 使用 し て 消去 し て か ら 行 な っ て 下さ い 。 
OPEN 文 で は 入力 か 出力 か の 指定 は 行ない ませ ん か ら , ファ イル は 消 
去 さ れ ま せん 。 


(5) CLOSE 文 は . コン トロ ー ル Z な どの EOF 記号 を 書き 込み ませ ん 。 
EOF 記 号 を 書き 込み た い 場 合 に は ENDE ILE 文 を 使用 し て 下さ い 。 
(10. 10 を 参照 し て 下さ い 。) 


(6 ) SEEK 時 に は バイ ト 単 位 で ポイ ンタ を 移動 し ます 。 書 式 付 出力 文 で 書 
か れ た ファ イル に は 各 レ コー ド の 区 切り と し て CR と LF( 0DH, 0 
AH ) が 存在 し ます が , その バイ ト 数 も 使用 者 の 責任 で 数 えて 下さ い 。 


10.12 コン ソー ル 入 出力 に が る 特殊 文字 


(1 ) CPM と 同じ く コ ント ロー ル X は 。, 行 入 力 の キャ ン モ セル で す 。 CR, 
LF に 続い て 感嘆 符 が 表示 され ます 。 


(2) コン ソー ル 入 力 時 , コン トロ ー ル Z を 入力 する と End of file と 
な り ま す 。 


(3) DELETE( 07FH), また は , コン トロ ー ル 圧 は 一 文字 消去 で す 。 


1・ シ ステ ム が 定義 し た サブ ルー チン 
及び 関数 


に 示す の は この FORTRAN が 定義 し た サブ プロ グラ ム と 関数 で CPM 
の ファ イル や メモ リー の 操作 に 役立ち ます 。 


恒 当 5 の 本 に グラ ム 


取 企 CHAIN CIN 
CLOSE CTE ST DELAY 
DELETE EX1ITT LOAD 
LOPEN MOVE OPEN 
OUT POKE ET 
RENAME RESET SEEK 
SETIO SETUNT 

関数 

CALL CBTOF CHAR 
COMP INP PEEK 
RAND 


以下 に 詳し い 説 明 を 示 し ます 。 


ファ イル 操作 を 行う サ プ プ ログ ラム は , オプ ショ ン の 引数 を 用 いて ファ イル 
操作 時 の エラ ー を 検出 する こと が で きま す 。 こ の オプ ショ ン の 変数 は 各 ル ー チ 
ン の 説明 で は ( , error }) と 書い て あり ます 。 この パラ メー タ を 指定 し な い 
時 , ファ イル 操作 中 に エラ ー が お こる と プロ グラ ム の 実行 は 中 断 し CPM の 
シス テム に も どり ます 。 ま た この パラ メー タ を 指定 し て お く と , サブ プロ グラ 
ム が 終っ た 時 に エラ ー の 有無 , 種類 を 知る こと が で きま す 。 


パラ メー タ の 値 意 味 


エラ ー は あり ませ ん 。 
指定 し た ファ イル が あり ませ ん 。 
ディ スク の 容量 が 不足 し まし た 。 
エン ド オ プ ブフ ァイル 。 


の 
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4 サブ プロ グラ ム RENAME で, 変更 し よう と し 
た 新しい 名 の ファ イル が 既に あり ます 。 

5, 6 サ プ プ ログ ラム SEEK の エラ ー。 

き サブ プロ グラ ム LOAD, CHA IN で 指定 し た フ 
ァイル 名 が 正しく あり ませ ん 。 


11.1 BIT 
も EL BI TDIP た ③、 ) 
国語 
「F・ 
y き 、。 
変数 D の 左 か ら P 番 目 の ビ ッ ト に 関す る サブ ププ ログ ラム で , 3 番目 の パラ メ 
ー タ で 機能 を 指定 し ます 。 


Ss 指定 た ビ ピッド ト を 1 に じ ま ず 。 

SR ' 指定 し た ピッ ト を 0 に し ます 。 

' 下 ' 指定 し た ビッ ト を 反転 し ます 。 

') 指定 し た ビッ ト を 調べ て , その 値 ( 0 か 1 ) を V で 指定 し た 変数 
に 入れ ます 。 


11 .2 CHAIN 
CALL CHAINK( "program name '{, error } ) 


"program name ′ は , 拡張 子 '. obj ' を 持つ この FORTRAN の 
オプ ジェ クト で , 実行 は 新しい プロ グラ ム に うつ り ま す 。 

現在 オー プン され て いる ファ イル の CLOSE は し な い の で , その ファ イル 
を 新しい プロ グラ ム で その まま 用 いる こと が で きま す 。 

オー バー レイ で は な い の で ,. メモ リー 上 の デー ター は 保存 し ませ ん 。 

た だ し , 無名 共通 プロ ッ ク ( プ ラン クコ モン ) の 内 容 は 保存 され る の で , 新しい 
プロ グラ ム に わた し た い デ ー タ は , プラ ンク コモ ン に 入れ て お きま す (4.7 参照 ) 。 
指定 し た ファ イル が 見 つか ら な い 場 合 は エラ ー と な り , 引数 error が な い 


時 は プロ グラ ム を 中 断 し ます 。 引 数 error が ある 場合 は エラ ー コ ー ド を セッ 
ト し て も どり ます 。 


eTTOT 


ファ イル が 見 つか り ませ ん 。 
ファ イル の フォ ー マ ッ ト が 正しく あり ませ ん 。 


11 .3 CIN 
CALL CIN(V) 


コン ソー ル か ら 1 文字 を 読み こん で , V の 最も 左 の バイ ト に 入れ ます 。 文字 
は 7 bit ASC 1 』 と し て 扱わ れ , MSB は 0 と な っ て いま す 。 


く 例 > 


C WAIT FOR A CR (ODH) EROM THE CONSOLE 


30 CALL CIN(CCHARA) 
IF ( COMP(CHARA, 井 0D00, 1) .NE.0 ) 
GO TO 80 
COMP で 比較 すべ き 文 字 を 井 を 用 いて あら わす に は この よう に 指定 し ます 。 
メモ リー 上 で は , 2 バイ ト ご と に 区 切ら れ , 
0D00 0000 0000 
と な っ て いる た めで す 。 


11 .4 CLOSE 
CALL CLOSEK(unit ) 


OPEN また は LOPEN で 開い た 論理 装置 番号 を 持つ ファ イル を 閉じ ます 。 


11.5 CTEST 
CALL CTESTK(status ) 


コン ソー ル に 入力 が ある か どう か を し ら べ ます 。 
status 


コン ソー ル の 入力 は まだ あり ませ ん 。 
コン ソー ル の 入力 が あり まし た 。 


入力 され た 文字 は サブ ププ ログ ラム CIN で 入力 で きま す 。 
CIN や , READ で コン ソー ル の 内 容 を 読む と , 次 の 入力 が ある まで 
status は 0 と な り ま す 。 


11.6 DELAY 


CALL DELAYK(wait time ) 


wait timeX10 ミ リ 秒 だ け プ ログ ラム を 遅らせ ます 。 wait time は 
1 一 65535 で 指定 し ます 。 0 は 65536 に 解釈 され る の で 注意 が 必要 で す 。 

CPU と し て は 2MHz の 8080 を 仮定 し て いる の で , 他 の シス テム で は に は 実 
際 に 計っ て 見 る こと が 必要 で す 。 


11.7 DELETE 
CALL DELETEKX《'file' {, error } ) 
'file' で 指定 し た CPM ファ イル を 消去 し ます 。 


指定 し た ファ イル が 存在 し な く て も , プロ グラ ム は 続行 し ます 。 
引数 error が ある 時 に は 次 の よう な 意味 を も ち ま す 。 


指定 し た ファ イル を 消去 し まし た 。 
指定 し た ファ イル は , は じ め か ら あ り ま せん 。 


消去 し た ファ イル は , 回 復 で きま せん か ら 注 意 が 必要 で す 。 
11 .8 EXIT 
2 光 EE EX1T 
プロ グラ ム を 正常 に 終了 させ る た め に 用 いま す 。 STOP ス テー トメ ント を 


用 いる 時 と 異な り 。 コン ソー ル に 何 も 表 示せ ず そ の まま CPM の コマ ンド モ 
ー ド に な り ま す 。 


11 .9 LOAD 
CALL LOAD( 「file name ', type {, error } ) 


file name で 指定 し た CPM ファ イル を メモ リー に ロー ド し ます 。 拡 
張子 は , type で 指定 し ます 。 


tYDe 
0 「. HEXX 
0 以外 0 ます 


主 に 関数 CAL し で 呼ぶ 機械 語 ル ー チ ン の ロー ド に 用 いま す が , この 
FORTRAN は 100Hー4000H に ラン タイ ム , 4000H 以 後に オブ ジェ 
クト が ロー ド さ れる の で , 機械 語 ル ー チ ン は , それ を 避け る よう に ロー ド す る 
必要 が あり ます 。 

指定 し た ファ イル が 存在 し な い , ある い は , フェ イル の 内 容 が 正しく な いと 
き は , 実行 時 エラ ー が 起り ます 。 

error を 指定 し な いと , プロ グラ ム は 中 断 さ れ , CPM シス テム に 実行 
が も どり ます 。 error を 指定 し た 時 に は 次 の よう に セッ ト さ れ ま す 。 


正常 に ロー ド し まし た 。 
ファ イル が あり ませ ん 。 
ファ ィ イ ル の 内 容 が 正しく あり ませ ん 。 


11 .10 LOPEN 


CALL LOPENK《unit, 'file name' {, error } ) 


ほとん どの 動作 は , サ プ プ ログ ラム OPEN と 同じ で す 。 異な る の は , 出力 
時 に フォ ー ト ラン の 行 送り 制御 が 仮定 され る こ と で す 。 各行 の は じ め の 文字 で 
行 送り の 制御 が 行なわ れ ま す 。 

最初 の 代わ り に 出力 
され る コー ド 


行なわ れる 動作 


前 の 行 に 重ね て 書き ます 。 
前 の 行 の 次 の 行 に 書き ます 。 

前 の 行か ら 1 行 あ け て 書き ます 。 
前 の 行か ら 2 行 あ け て 書き ます 。 
次 の ペー ジ の 先頭 か ら 書 きま す 。 


CR 
CR, LF 
CR, LEF, LEF 
CR,-LF, LF, LE 
CR, FF 


今 の 行 の 1 カラ ム に も どり ます 。 
カラ ム 位 置 を 変え ず に 次 の 行 に 進み ます 。 
次 の ペー ジ の 先頭 に 送り ます 。 

表示 され る 装置 は この 動作 を 実行 で きる も の で ある 必要 が あり ます 。 


11 .11 MOVE 


CALL MOVE (count, from, disp 1, to, disp 2 ) 


メモ リー の 内 容 を 他 の 場所 に 複写 し ます 。 count は 複写 する バイ ト 数 を 示 
し ます 。 from と to は 複写 の も と と 行く 先 を 示し ます 。 disp 1 , disp 2 
は , from と to の 使い 方 を 示し ます 。 


disp from と to の 意味 
寺 3 引数 が 示す 値 を 用 いま す 。 
凍ら SS 引数 が ある アド レス に この 値 を 加え た 値 を 用 いま す 。 


ぐ く 例 CALL MOVE(2, A, 一 1, $CCO00, 一 1) 
A の 示す アド レス か ら 2 バ イト を SCC0 0 に 複写 し ます 。 

CALL MOVE(C5, 'STRING', 1, $CC00, 一 1) 
'STRING' の 2 番目 以後 5 文字 つま り "TRING' を , $CC00 
以後 に 複写 し ます 。 

CALL MOVE(1024, $CC00, 一 1, A, 0) 
CC00 以後 1024 バイ ト を 変数 へ の ある アド レス 以後 に 複写 し ます 。 


11 .12 OPEN 


CALL OPEN. 《unit, 'file name'{, error } ) 


'file name' で 指定 し た ファ イル を オー プン し て unit で 指定 する 論理 
装置 番号 に 対応 させ ます 。 

指定 し た ファ イル が すでに 存在 し て いる 場合 は その フィ イル を オー プン し ま 
す 。 そ の ファ イル が な い 時 に は , 2 つの 対応 が あり ます 。 error と いう 引数 
を つけ ず に OPEN を 実行 し た 場合 は , 指定 し た 名 前 の ファ イル を 新た に , 作 
り ま す 。 error と いう 引数 を 用 いた 場合 は OPEN の 実行 後に error は 
次 の よう な 値 を 持ち ます 。 


目的 の ファ イル は 存在 し て いて オー プン され まし た 。 

目的 の ファ イル は 存在 せ ず 何 も 行 な われ ませ ん 。 

そこ で , 次 の よう に し て ある ファ イル が 存在 する か を 調べ る こと が で きま す 。 
CNT OPEN すす ボ TNPUT "TERROR う 
IFCIERROR. NE.O)TYPE  'NO 工 FOUND『" 


OPEN で は , CPM ファ イル 以外 に も , CPM の シス テム コン ソー ル , 
プリ ンタ ー の オー プン が で きま す 。 

'CON : ' コン ソー ル を オー プン し ます 。 

SSR プリン を オー ジン し まず 。 


く 例 > 
AETL OPEC2 BDD 下 SR の 
ALL OPEN で 3,。 C・1INPUT. DF' デ う 
AL 1。 O 忠 到 NICGO5N CON': を う 


11 .13 OUT 
CALL OUTK(P, V) 


8080 プ 8085 プ Z 80 の 出力 ポー ト を 直接 アク セス し ます 。 ポ ー ト P に 
V を 8 ビッ ト の 値 に な お し て 出力 し ます 。 


11 .14 POKE 


CALL POKEK( location, value ) 
location で 指定 し た メモ リー に , value で 指定 し た 値 を 代入 し ます 。 


く 例 > 
CALL POKE(CADD, PEEK(CADD)+1) 
は , ADD で 示す メモ リー の 内 容 を 1 つ 増 し ます 。 


11 .15 選 UT 
CALL PUTK(value ) 


コン ソー ル に value に 対応 する ASC1I 1 文字 を 出力 し ます 。 


く 例 > 
GA 上 P や 中 人 65. り 
6 5 に 対応 する ASCI1 文 字 'A ' を 出力 し ます 。 
ET PON も NE RS 


C 提 AR( 1 上 0 は 49 な の で 1) を 出力 し ます 。 
11.16 RENAME 
CALL RENAME( 'old', 'new'{, error } ) 
ファ イル の 名 を つけ か えま す 。 も し ' old ' と いう 名 の ファ イル が な か っ た 
り 「!new ' と いう 名 の ファ イル が 既に ある 時 に は エラ ー と な り ま す 。 引 数 error 


が な い 場 合 は プロ グラ ム CP プ M に も どり ます 。 引数 error を 指定 し た 時 は 
次 の よう な 意味 を も ち ま す 。 


意 味 
0 正常 に RENAME し まし た 。 
1 RENAME す べき ファ イル が あり ませ ん 。 
4 新しい 名 前 を も つ フ ァイル が 既に あり ませ ん 。 
く 例 > 


DIMENSION OLD(2), NEWK(2) 
READ(C0, 1)OLD, NEW 

1 FORMAT(2A6 グ 2A6) 
CALL RENAME (OLD, NEW, ERROR) 


11 .17 RESET 
CALL RESET 


ディ スケ ッ ト を 交換 し た こと を シス テム に 教え る サブ ププ ログ ラム で す 。 交換 

され る ディ スケ ッ ト で オー プン し て いた ファ イル は 交換 に 先だって CLOSE 
する 必要 が あり ます 。 RESET の 中 で ディ スケ ッ ト を 交換 する よう に 指示 を 
出し ます 。 
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く 例 > 
CALL CLOSE(3) 
CALL CLOSE(4) 
CALL RESET 


11 .18 SEEK 
CALL SEEK (unit, position {, error } ) 


unit で 指定 され た ファ イル の 先頭 か ら position 番 目 の バ イト で 次 の 
read グ write が 行なわ れる よう 用 意 し ます 。 デー ター の な い 所 に SEEK 
を 試み る と 実行 時 エラ ー と な り ま す 。 引 数 error が な い 場 合 は 実行 を 中 断 し 
て CPM の シス テム に も どり ます 。 引 数 error を 指定 し た 場合 は , error 
を 次 の よう な 値 に し て も どり ます 。 

意 味 
正和 常に SEE 氏 し まし た 。 
その 部 分 は 存在 し な い セ クタ ー で す 。 

その 部 分 は 存在 し な い イ クス テン ト で す 。 

5 の 場合 は ファ イル は CLOSE され な い の で , その ポジ ショ ン に 新しい デ 
ー タ を 書き 込む こと が で きま す 。 し か し , 6 の 場合 は ファ イル は CLOSE さ 
れ ま す 。CP グ M 2. 0 以後 の バー ジュ ン で は 6 の エラ ー は 出 ま せん 。 


11 .19 SETIO 
CALL SETIO(V) 


コン ソー ル の アク セス の 方 法 を 変更 し ます 。 


0 CPM BIOS の コン ソー ル 入 出力 ルー チン を 用 いま す 。 

2 CPM の BDOS の 1 , 2 で コン ソー ル 入 出力 を し ます 。 
コン トロ ー ル P で プリ ンタ ー を ON グ OFE で きる の は , こ 
の 場合 の み で す 。 


0, 2 以外 CPM の BDOS の 6 で コン ソー ル 入 力 を し ます 。 これ が 
可能 な の は CPM 2.0 以後 の バー ジョ ン の み で す 。 


すべ て の CPM で 用 いる こと が で きる の は , マテ 2 の み で す 。 


11 .20 CALL 
A= ニ CALL ( address , argument ) 


address か ら は じ ま る , ユー ザ が 定義 する 機械 語 ル ー チ ン を 呼び ます 。 
argument の 内 容 を 16 ビ ピッ ト の 数 に な お し て , BC, DE レジ スタ ペア に 
入れ ます 。 機械 語 ル ー チ ン は 得 ら れ た 結果 を HL し レジ スタ ペア に 入れ る こと で 
値 を プロ グラ ム に 返す こと が で きま す 。 機械 語 サ ププ ログ ラム は 普通 に 8080 
グ Z 80 の RE 命令 を 実行 する こと で , も と の ルー チン に も どり ます 。 

機械 語 ル ー チ ン は , 先 に 述べ た LOAD サ ププ ログ ラム で メモ リー 上 に ロー 
ド し ます 。 


11 .21 CBTOF 


A=CBTOF (from, disp {, 8 一 bit } ) 


Convert binary to floating の 申 で , 16bit ある い は (,8 一 bit 
と つけ 加え る こと で )8bit の binary の 数 を , この FORTRAN の 内 部 表 
現に 変換 し ます 。 

変換 する デー タ は 次 の よう に 指定 し ます 。 

disp が 0 以上 の 時 は , 変数 from が 存在 する アド レス に disp を 加え た ア 


ドレ ス の 内 容 を 変換 し ます 。 
disp が 0 未満 の 時 は , 変数 from が 示す アド レス の 内 容 を 変換 し ます 。 


く 例 
V=CBTOF(A, 0, 8 一 bit) 
に より 変数 A の 一 番 下 の パイ ト の 内 容 を V に 代入 し ます 。 


BTOS=CBTOF($0001, 一 1)-3 
に より CPM の BIOS の 存在 する アド レス を 変数 BIOS に 代入 し ます 。 


11 .22 CHAR 


A= ニ CHAR (variable, disp ) 


変数 variable の 存在 する アド レス に disp を 加え た アド レス の 文字 が 持 
つ ASC 1 1 コー ド を 得 ま す 。 


ぐ く 例 A='ABCDEF " 
B=CHAR(A, 0 ) 
C=CHAR(A, 5) 
で は B, C に は それ ぞ れ 「'A' と 「'F' に 対応 する 65 と 70 が 代入 され ます 。 


11 .23 COMP 
A=COMP (str 1, str 2, leng ) 


2 つの 文字 例 str 1, str 2 の は じ め か ら leng の 長 さ を 比較 し ます 。 比較 
は 2 つの 文字 例 の は じ め か ら 1 バイト づつ と り だ し , ASC 1 1 コー ド で 比較 
し て 行き ます 。 結果 は 


な Sb Ssttr 2 
0 St: で い 守 (sb 2 
1 Sal SE の 
ぐ 例 > 
A デ = テ COMP( 'ABCDEF ', 'ABCDEG ', 5) 
は 'ABCDE ' と 'ABCDE ' の 比較 で A は 0 と な り ま す 。 
A= テ COMP( 'ABCDEFE ', 'ABCDEG ', 6) 


は 'ABCDEF ' と 'ABCDEG ' を 比べ て , A は 一 1 と な り ま す 。 
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11 .24 INP 


A= ニ INP (port ) 


8080 プ 8085 プ Z80 の 入力 ポー ト を 直接 アク セス し ます 。 
port で 指定 し た 入力 ポー ト の 内 容 を 変数 A に 代入 し ます 。 


11 .25 PEEK 
A= ニ PEEK ( location ) 


location で 示す メモ リー の 内 容 を 変数 A に 代入 し ます 。 


く 例 > 
BIOS=PEEK(1)+PEEK(2)*256-3 


に より BIOS の 存在 する アド レス を BIOS に 代入 し ます 。 これ は 
BIOS 三 CBTOFE($0001, 一 1) 一 3 
と 同じ 値 を 得 ます 。 


11 .26 RAND 
A=RAND 《X) 


0 と 1 の 間 の 擬似 乱数 を 与え る 関数 で す 。 引数 X の 値 に よっ て 機能 が 異な り ま す 。 
X メ > 0 の 場合 は , X を 種 ( SEED ) と する 新しい 系 列 の 乱数 の は じ め の 乱 
数 を 与え ます 。 又 の 値 が 同じ な ら ば 得 ら れる 系 列 も 同じ も の で す 。 

X テ 0 の 場合 は , X>0 の 値 で 定め た 系 列 の 次 の 乱数 を 与え ます 。 

X ぐ 0 の 場合 は X>0 の 場合 と 同じ よう に 新しい 系 列 の 乱数 を 作り ます が , 
XX の 絶対 値 に よら ず 同 じ 系 列 と な り ま す 。 

と に か く , X 三 0 と し て お け ば , RAND 関 数 は , 次 々 と 新た な 乱数 を 発生 


し て 行き ます 。 


Summary OoE System Function 


Name Function Argd resu1 argdumen モ 
SIN 1 Sine( x) まこ 二 靖 者 1 rea1 
COS 1 Cosine( x) 』 。 1 -。 た 人 a せ 1 ! rea1 
TAN 1 Tanqgent( x) 上 3 ま 26aE 1 rea1 
ATAN 1 Arotangent( x) 5 5 ! rea1 
ATAN2  ! Arotangent(y/ x) た 2SCSRIIRGWB 1 rea1 
ALOG 1 Log base e (x) まま ! rea1 
ALOG1 の ! Log base 19 (x) だ peed ! rea1 
MOD 1! Remainder ( x/) 1 2  !」 integer ! integer 
AMOD 1! Remainder (x/y) |. 2 - に aa ! rea1 
SORT ! Square Root ( x) 0 ユ こ ま っ でき ! rea1 
FLOAT  ! Make rea1 (x) 0) 1aageia 1 inteq er 
TFTX ! Truncate ( x) まま ー ユ EmEegieri.! real 
ABS 1 Abso1ute ( x) 1! 1 !』 rea1 ! rea1 
TABS ! Abso1ute ( x) 1 1 ! integer ! inteqer 
RAND ! Random Number ( x) 1 寺 司 生 役 よ 1 rea1 の . の <R<1 . の 
EXP 上  @ え *( x) ニー の 地 1 rea1 
COMP ! Compare stringqs ! 3 ! either  ! real1 
CALL 1 CALL assemb1y pgm 1 も He . ! と ea1 
AMAX の  !1 Maximum ! <2551 either  ! either 
AMAX1  ! Maximum 1 <255! either  ! either 
MAX の 1 Maximnum 1 <255! either  ! either 
MAX1 1 Maximum ! <255! either  ! either 
AMTIN の  ! Minimum ! <255! either  !』 either と 
AMIN の  ! Minimum ! <255! either  ! either 
MIN の ! Minimum ! <255! either  ! either 
MIN1 1 Minimum ! <255! either  ! either 
BIT ! Bit hand1ing 1 3/4 ! either  ! either 
STGN ! TransfFer oF siqn 本 寺 析 吉 まっ,- 1 rea1 
TSTGN  ! TransfFer of siqn ! 2 1! integer- ! inteqer 
DIM 1 Positive difFFerence ! 2  ! rea1 1 rea1 
TDIM ! Positive diFFerenoe ! 2  ! rea1 1 rea1 
CHAR ! charaocter val1ue 1 1  !』 either  ! character 
CALL ! execute asm pqm ) 2ーー ド に ご る a 生 も hG  ! Gt や Gr 
TNP ! input from a PO エモ 1! 1  ! either  ! either 
CBTOF  ! convert to rea1 ! 2/3 4 で ea1 1 both 
COMP ! Compare strings 1 3  ! either  ! either 
PEEK ! examine mem 1oc-. ! 1  !』 either  ! either 


@ APPEINDIX 


1 実行 時 の エラ ー メ ッ セ ー ジ 
プロ グラ ム の 実行 中 に 続行 不可 能 な エラ ー が 起 る と , 次 の よう な メッ セー ジ 
を コン ソー ル に 出力 し て CPM シス テム に も どり ます 。 


Rutime error: ズ XX 文 , called from loc. YYYYH 
Pgm was executing line LLLL in routine NNNN 


XXXX は 以後 に 示す エラ ー メ ッ セ ー ジ で す 。 

YYYY は エラ ー を 起 し た ルー チン を 呼ん だ アド レス で す 。 

この アド レス は , NNNN と いう ルー チン の LLLL 行 目 に あっ た こと を 示 
し ます 。 注意 すべ きこ と は LLLL は ソー スプ ログ ラム の 行 で は な く ,。 コン パ 
イル 時 の リス ト を 見 な けれ ば わか ら な いと いう こと で す 。 また コン パイ ル 時 に 
X オ プシ ョ ン を 用 いな いと 行 番号 し し し し は 表示 する こと は で きず ???? が 
表示 され ます 。 

Pgm was…… が 2 行 以 上 表示 され た 場合 は は じ め の 行 が 正しい メッ セー 


ARG CNT サブ プ ロ グラ ム や 関数 を 呼 評 が わ と 呼ば れる が わ の 引数 
の 数 が 異な る 。 


ASN GOTO 割当 て GOTO を 実行 し よう と し た が , 正しい 文 番 号 が 
変数 に ASSIGN され て いな か っ た 。 


CAE ま smPO ひ P 対応 する 呼び 出し が な い の に RE 命令 を 実行 し た 。 主 
に 機械 語 ル ー チ ン の 中 で お こる 。 


CC 導 E ま PS 介 サブルーチン 呼び 出し の ネス ト が 深 す ぎる 。 
サブ ルー チン や 関数 を 再帰 的 に 用 いた 時 な ど に お こる 。 


CHAIN FL 


COM GOTO 


CON BIN 


CONTRL ン /C 


CONVERT 


DIV ZERO 


DSK FULL 


ES 上 EE の PR 


FORMAT 


ILL CHAR 


を UNIT 


INPT ERR 


CHAIN ま た は LOAD で 指定 し た ファ イル が 存在 し 
な か っ だ 。 


計算 型 GOTO を 実行 し よう と し た 所 , 指定 し た 文 番 号 
が な か っ た 。 


シス テム コン ソー ル へ は , 書式 な し 入出 力 は で き な い の 
に それ を 試み た 。 


CTRL ENABLE の 状態 で コン トロ ー ル C を 受け つ 
けた が , ERRSE 華 文 が 実行 され て いな か っ た 。 


変数 の 内 部 表現 を 16 ビッ ト の 整数 に 変換 し よう と し た 
と - で の オー バー ラウ を お と じ た 。 


0 で 割り 算 を し よう と し た 。 
ディ スク 容量 また は ディ レク トリ ー が 不足 し た 。 
ファ ィ イ ル 操 作 時 の エラ ー。 


フォ ー マ ッ ト 入 出力 時 の フォ ー マ ッ ト 文 が 正しく な か っ 
p 


READ を 実行 し て いる と き に 正しく な い 字 を 読ん だ 。 
READ, WR ITE, OPEN, LOPEN, REW1IND, 
CLOSE, SEEK に お いて , 装置 番号 に 2, 3, 4, 


5 , 6, 7 以外 を 用 いた 。 


READ で 数 を 入力 する 時 に 正しく な い デ ー タ が あっ た 。 
例え ば , 整数 を 入力 する 所 に 4. な ど と 入力 し た り , 


INT RANG 


1 プ O ERR 


1 の 5 ELST 


LNEe 直己 N 


LOG NEG 


OVERFLOW 


SiEEK | 所 犬 R 


SQORT NEG 


UNIT CLO 


UNIT OPN 


小数 点 を 誤っ て 2 つ 入 力 し た 時 に お こる 。 


計算 結果 を 整数 型 変数 に 代入 し よう と 思っ た ら , 8 桁 の 
範囲 を 越え た 。 


READ, WR ITE の 時 に エラ ー が 起 っ た 。 そ し て 
1 と いう エラ ー 処 理 が 指定 され て いな か っ 


た 。 


フォ ー マ ッ ト 入 出力 の 時 に , 指定 し た 入出 力 リ スト に エ 
ラー が あっ た 。 


入出 力 で 1 度 に 処理 し よう と し た レコ ー ド の 長 さ が 
250 バ イト を 越え た 。 こ の 中 に は 行 の 終り の CR(0 
DH ) を 含む 。 


ALOG, LOG 10 で , 負 の 数 の 対数 の 値 を 求め よう と 
じ た 。 


計算 結果 が , 実数 の 表現 の 範囲 を 越え た 。 
サブ ププ ログ ラム SEEK で エラ ー が 起 っ た 。 
SQR 工 で 負 の 数 の 平方 根 の 値 を 求め よう と し た 。 


サ プ プ ログ ラム CLOSE で クロ ー ズ し よう と し た ファ 
イル は , オー プン され て いな か っ た 。 


すでに オー プン し て いる 装置 番号 を 再び LOPEN, 
OPEN で オー プン し よう と し た 。 装置 番号 0 と 1 を 
OPEN, LOPEN で オー プン し よう と し た 。 


2 コン パイ ル 時 の エラ ー メ ッ セ ー ジ 


コン パイ ル 時 に エラ ー を 発見 する と , どの よう な エラ ー か を 2 桁 の 16 進 コ 
ー ド で 知ら せま す 。 さ ら に コン パイ ル の オプ ショ ン に G を 指定 する と , エラ ー 
に 対す る メッ セー ジ も 表示 し ます 。 そ の 中 で ※FATAL※ は , 特に 重大 な エ 
ラーー で ます 。 


の の *EFATAL* Compiler errO エ 

50 KRATAE ネ ユン 2 パイ ラー の エラ ー。 

1 Syntax error, 2 operators in a row 

0 1 (文法 エラ ー, 1 行 に 2 つの 演算 子 が ある 。 ) 

の 2 unexpected continuation (co1umn 6 not bl1anK Or 9 ) 
0 2 (不正 な 継続 文 。 ) 

の 3 input buEfFer overE1ow (increase B= comp1i1ler option ) 
0 3 (入力 バッ ファ ィ 不 足 ( コ ン パ イル オプ ショ ン B 三 で 増やす こと が で きる ) ) 
の 4 inva1id character fEOr FORTRAN statement 

0 4 (ソー ス フ ァ イル に 不正 な 文字 が ある 。 ) 

の 5 unmatched parenthes1s 

0 5 (「(' と !) ! の 数 が 一 致し て いな い 。 ) 


の 6 statemen 1abe1 > 99999 
0 6 ( 文 番 号 で 99999 よ り 大 きい も の が ある 。 ) 


g の 7 inva1id character encountered in statemen 1abe1 
0 7 ( 文 番号 に 不正 な 字 が ある 。 ) 


9 の 8 inva1id HEX diqgit encountered 1n Constan モ 
08 (16 進 数 で 不正 な 字 が ある 。 ) 


の 9 expected constan or Variab1e not Found 
0 9 (変数 また は 定数 が 不足 し て いる 。 ) 


gA 8 bit overE1ovw in constant 
0A (定数 の 値 が 8 ビッ ト を 越え て いる 。 ) 


9B unidentifFab1e s モ atemen て t 


OB (意味 不明 の 文 。 ) 


9C statement not imp1emented 
0C (この FORTRAN に は な い 機 能 を 用 いて いる 。 ) 


gD quote missing 
0D (quote が な い 。 ) 


の E SUBROUT TNE/ FUNCTTON / BLOCK DATA not first 
Statement in routine 


OE (CSUBROUT INE プ FUNCTION グ BLOCKDATA 文 が ルー チ 
ン の 先頭 に な い 。 ) 


9F co1umns 1-5 ofF continuaion statement are not bl1ank 
OF (継続 行 な の に , 1 て 5 カラ ム が 空白 で な い 。 ) 


19 cannot nitia1ize BLANK COMMON 
10 (無名 コモ ン を BLOCKDATA で 初期 化し よう と し て いる 。 ) 


11 RETURN 1s not va1iqd in main program 
11 (メイ ンプ ログ ラム に RETURN 文 が ある 。) 


1 2 syntax errOor On unit specification 
1 2 (論理 装置 番号 の 指定 が お か し い 。 ) 


13 missing Comma after ) in COMPUTED GO TO 
1 3 (計算 型 GO エ O 文 で ) の 後に , が な い 。) 


14 missing variab1e in COMPUTED GO TO 
1 4 (計算 型 GOO 文 で 変数 が な い 。 ) 


15 inva1iqd variab1e in ASSTGNED/COMPUTED GO TO 
1 5 (計算 型 GOTO 文 , 割当 て GOTO 文 で 変数 の 値 が 不正 。 ) 


16 inva1id LITERAL, no beginning quote 
1 6 (不正 な 文字 列 。 ) 


17 number ofF subgcripts exCeed8s max1mum of 7 
1 7 (配列 の 次 元 が 7 を 越え て いる 。 ) 


18 inva11d SUBROUTTNE Or FUNCTTION name 
1 8 (不正 な サ プ プ ログ ラム , 関数 名 。 ) 


19 SuD8gor1ipt no POSTTTVE TNTEGER CONSTANT 
1 9 (配列 の 添え 字 に 使わ れ た 定数 が 正 の 整数 で な い 。 ) 


1A FUNCTTION requires at 1east One argumen モ 
1A (関数 に 引数 が 1 つも な い 。 ) 


1B SyntaX GrrO エ 
1B 。(〈 構 文 エ ラー。 ) 


1C inyva1id argument in SUBROUTTNE/ FUNCTTON ca11 
1C (サブ ププ ログ ラム , 関数 を 呼 尽 た め の 引 数 に 不正 が ある 。 ) 


1D first character ofF variab1e not a1phabet ュ ic 
1D (変数 名 の は じ め の 字 が , アル フェ ァ ベット で な い 。 ) 


1E ASSTGNED/COMPUTED GOTO variab1e not inteqder 
1E (計算 型 GOTO 文 , 割当 て GOTO 文 の 変数 が 整数 で は な い 。 ) 


1F 1abe1 has al1ready defFined 
1F (同じ 値 の 文 番号 が 2 回 使わ れ て いる 。 ) 


29 speocifFication ofF array mus be inteqger 
20 (配列 の 添字 が 整数 で な い 。 ) 


21 inva1id variab1e name 
21 (不正 な 変数 名 。 ) 


22 inva11iqd DIMENSTON spec1iFicat1on 
22 (CDIMENS ION 文 で 不正 な 指定 が 行なわ れ て いる 。 ) 


23 dimension specifFication is inva11id 
23 (配列 宣言 に 不正 が ある 。 ) 


24 variab1e has a1ready appeared in type statemen 
24 ( 型 の 宣言 が 2 重 に 行なわ れ て いる 。 ) 

25 nyva1id subroutine name in CALL 

25 (CALL 文 で 呼ば れる サ プ ブル ー チ ン 名 の 不正 。) 


26 SUBPROGRAM arqgument cannot be initia1ized 
26 (サブ プ ル ー チ ン で 引数 を 初期 化し よう と し て いる 。 ) 


27 improper1y nested DO 1oops 
27 (DO ルー プ の 入れ 子 構造 の 不正 。 ) 


28 unit not inteqer Constant or variab1e 


28 (論理 装置 番号 が 整数 型 で な い 。) 


29 Array size exceeds 32 人 KK 
29 (配列 の 大 き さ が 32 KK バイ ト を 越え て いる 。 ) 


2A na1id use 〇 fF una エ Y 〇 Pera モ 〇 エ 
2A (単項 演算 子 の 不正 使用 。 ) 
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2B variab1e DTMENSTON not Ya11id in MATN proqgram 
2B (メイ ンプ ログ ラム で , 配列 の 大 き さ が 変数 で 与え られ て いる 。 ) 


2C variab1e dimensioned arraY mmus モ De ardumen 
2C (引数 で な い 変 数 で 配列 の 大 き さ の 宣言 を し て いる 。 ) 


2D DO/END/LOGTCAL。 IF cannot Eo11ow LOGICAL TF 
2D (論理 IF 文 の 後に . DO, END, 論理 IF 文 が ある 。 ) 


2E undefined 1abe1 
2E (未定 義文 番号 の 参照 。 ) 


2F unrefFerenced 1Labe1 
2F (参照 され な か っ た 行 番号 。 ) 


3 の FUNCTION or ARRAY missing 1efFt parenthes15s 
30 (関数 や 配列 で , ) が な い 。 ) 


31 inva1id arqunent ofE FUNCTTON or ARRAY 
31 (関数 や 配列 の 引数 が 不正 。 ) 


32 DIMENSTON speciEiCation must preocede firgt 
eXxecutab1e statemen て 


32 (CDIMENS ION 文 が 実行 文 の 後に ある 。 ) 


33 unexpected Character in expression 
3 3 ( 式 の 中 に 不正 な 字 が ある 。 ) 


34 unrecogn1tzed 1odioa1 opcode 
34 (論理 演算 子 の 不正 。 ) 


35 argument COunt FEOr FUNCTTON Or ARRAY wrong 
35 (関数 また は 配列 の 引数 , 次 元 の 不正 。 ) 


36 *COMPTLER ERROR* poped OFF Dottom OfF Operand gtacKk 
36 (※ コ ン パ イラ ー の エラ ー メ ※ 演算 子 ス タッ ク が 空 に な っ た 。 ) 

37 expectinqg end ofF statement ,。 not found 

が 35 END 文 が な い 。 ) 

38 statement OO ComplLexz: 1nCrease P and/or 〇 O tab1e 
3 8 (複雑 すぎ る 文 (P ま た は 〇 の 量 を コン パイ ルオ プシ ョ ン で 増やす ) ) 


39 inyva1iqd de1imiter in ARTTHMETTC TF 
3 9 ( 算術 I 下 文 で の 不正 な 区 切り 。 ) 


3A inva11d statement number in TEF 
3A (1IFE 文 内 の 文 番号 の 不正 。 ) 


3B HEX Constant > FEFFE (HEX) 
3B (16 進 数 が FFFFH を 越え て いる 。 ) 


3C rep1acement not a11owed within 1F 
3C (1F 文 内 に 代 和 大 文 が ある 。 ) 


3D mu1tip1e ass1qnment statemen not imp1emented 
3D (多重 代入 文 を 用 いて いる 。 ) 


3E SuDSCr1ptedーSuD8SCr1p も Ss not a11owed 
3E (配列 の 添字 に 配列 を 用 いて いる 。 ) 


3F subscript staok OverE1Ow: 1nCrea8e P= Or O= 

3F (配列 の 添字 の 計算 の た め の バ ファ ィ 不足 ( P ま た は 〇 の 量 を コン パイ ル 
に アン ヨ ン で 増す う ぁ ) 

4 の missinqg 1efEt ( in READ/WRTTE 

4 0 (READ, WRITE 文 の (が な い 。 ) 

41 inva1id unit speoifEied 

41 (不正 な 装置 番号 の 指定 。 ) 

42 inva11d FORMAT, END= or ERR= 1abe1 

42 (READ, WRITE 文 の END=, ERR= の 行 番号 が な い 。 ) 

43 inva1id el1ement in T/O 1igt 

42368 人 大 出力 リス ト の エラ ご ) 


44 bui1t-in Funotion inva1id in T/O 1rgst 
44 (WRITE 文 の 入出 力 リ スト に 関数 を 参照 し て いる 。 ) 


45 cannot subsoript a constant 
45 (定数 に 添え 字 を つけ て いる 。 


46 variab1e not dimensioned 
46 (宣言 し て いな い 変 数 に 添え 字 を つけ て いる 。 ) 


47 inyva1iqd sub scCript 
47 (不正 な 添え 字 。 ) 


48 missing Comma 
8 カン マ が So 


49 index in TMPLTED DO must be a variab1e 
49 (DO 文 に 変数 が 用 いら れ て いな い 。 ) 


4A inva1id starting VaLue for TMPLTED DO 
4A (DO 文 の 初期 値 の 不正 。 ) 


4B inva1iq ending value oF IMPLTED DO 
4B (CDO 文 の 終値 の 不正 。 ) 


4C inva1iqd ncrement ofF TMPLTED DO 
4C (DO 文 の 増分 の 不正 。 ) 


4D i11ega1 use OoE bui1t-in Funotion 
4D (シス テム で 定義 し た 関数 使用 法 の 不正 。 ) 


4E variab1e cannot be dimensioned in this context 
4E (配列 名 し か 使え な い 所 に 義 字 を つけ て いる 。) 


4F inva1id or mu1tip1e END= or ERR= 
4F (READ 文 , WRITE 文 の END ー, ERR の 重複 や 不正 。) 


59 inva1iqd congstant 
50 (不正 な 定数 。 ) 


51 exponent overFE1Ow in constan 
51 (定数 の 指数 の オー バー フロ ウ 。 ) 


52 inva1id exponent 
5 2 (不正 な 指数 。 ) 


53 character aEter .。 inva1iqd 
53 (ピリ オド 『!.! の 後 の 文 の 不正 。 ) 


54 inteqer overF1Oow 
5 上 栖 雪 の オー バー フロ ウ C 天 きす ぎる う 。 ) 


55 integer underfF1ow (too sma11 ) 
5 5 (整数 の アン ダー フロ ウ ( 小 さす ぎる )。 ) 


56 missing = in DO 
5 6 (DO 文 に = が な い 。 ) 


57 strinq constant not a11owed 
5 7 (文字 列 定数 を 用 いた 。 ) 


58 inva1id variab1e in DATA 11s 
58 CDATA 並び の 変数 の 不正 。 ) 


59 DATA symbo1 not used in proqgram, 1ine 
5 9 


5A inva1id constant in DATA 1igst 
5A (DATA ム 文中 の 定数 の 不正 。 ) 


5B error in DATA 1ist specifFioation 
5B (DATA 並 び の 指定 の 方 法 の 不正 。 ) 


5C FUNCTTON inva1id in DATA 11st 
5C CDATA 並び に 関数 名 が ある 。 ) 


SD no fi1ename speoifFied on COPY 
5D (COPY 文 の ファ イル 名 が な い 。 ) 


SE runtime format not array name 
5E (FORMA 工 が 入っ て いる 変数 が 配列 で な い 。 ) 


5F DUMP 1abe1 inva1iqd or more than 1 の charaCter5s 
5F (DUMP 文 の ラベ ル の 不正 また は 名 前 が 10 字 を 越え て いる 。 ) 


69 more than 1 TMPLTCTT gs not al11owed 
60 (IMPLIC1I イ 文 が 2 つ 以 上 ある 。 ) 


61 1IMPLTCTT not First statement in MATN, 2nd statement 
in SUBPROGRAM 
61 (IMPLIC1I 人 本文 が 。 メ イン プロ グラ ム の 先頭 に な い 。 あ る い は サブ 


プロ グラ ム , 関数 , ブロッ ク デ ー タ の 2 番目 に な い 。 ) 

62 data type not REAL,。 TINTEGER or LOGTCAL 

6 2 (REAL, INTEGER, LOGICAL 以外 の デー ター タイ プ で 宣言 
且 で ふる 。 、 サ 


63 i11ega1 TMPLTCIT specifFication 
6 3 (不正 な IMPLIC1 丁 文 の 使用 。) 


64 improper oharacter sequenCe in TMPLTCTT 
64 (IMPLIC1 イ 本 文 の 文字 の 順序 の 不正 。) 


65 variab1e al1ready DIMENSTONED 
6 5 (配列 の 2 重定 義 。 ) 


66 Q option must be specifFied for ERRSET/ ERRCLR 
66 (Q オ ォ オプ ション の な い ERRSETT 文 また は ERRCLR 文 。) 


67 Hex constant of zero (の ) inva1id in エ /O stmnt 
6 7 (入出 力 文中 で の 1 6 進 定数 0 の 使用 。 ) 


68 Argument・ Cannot a1gso be in COMMON 
68 (引き 数 が コモ ンプ ブロ ッ ク 中 に も 用 いら れ て いる 。 ) 


69 T11ega1 COMMON b1oock name 
69 (コモ ン ブ ロ ッ ク 名 の 不正 。 ) 


6A _ Variable already in COMMON 
6A (コモ ンプ ブロ ッ ク に すでに あら われ た 変数 。 ) 


6B Array SpecitEication must precede COMMON 
6B (コモ ンプ ブ ロッ ク よ りら 配列 の 宣言 が 後に ある 。 ) 


6C Executab1e statemen モ inya1iqd in BLOCK DATA 
6C (ブロ ッ ク デ ー タ 副 プ ログ ラム 中 に 実行 文 が ある 。) 


6D Hex constant oE 27H (') inva1id in FORMATT 
6D (フォ ー マ ッ トト 文中 に \ へ を 用 いて 27H( ' ) を 混ぜ て いる 。 ) 


6E Invalid number fo11owinq STOP or PAUSE 
6E (STOP 文 , PAUSE 文 で 使う 数 の 


6F inva1id TRACE statement (operand not ON/OFF ) 
6F (TRACE ON 文 で も TRACE OFF 文 で も な い 。) 


7 の inva11d TOSTAT= variab1 
70 (CERR= テ , END= で , 不正 な 変数 が ある 。 ) 


71 missing , 1n ENCODE/DECODE 
7 1 (ENCODE, DECODE 文中 で , ' , "が な い 。 ) 


72 inva1id 1abe1 in ASSTIGNED GOTO 
7 2 (割当 て GOTO 文 の 文 番 号 の 不正 。 ) 


73 inva1id variab1e in ASSTGNED GOTO 
7 3 (割当 て GOTO 文 の 変数 の 不正 。 


74 1abe1 not a11owed on this statemen モ も 
7 4 ( 文 番 号 を 用 いて は いけ な い 所 に 文 番号 が つい て いる 。 ) 


75 mu1tip1e RETURN not Va11qd in FUNCTTON 
7 5 (関数 内 で の 多重 リタ ー ン 。 ) 


76 UNUSED 
7 6 (未定 義 。 ) 


77 no matchinqd TF-THEN For ELSE or ENDTF 
77 (1F-ーTHENELSEENDIF の 入れ 子 構造 の 不正 。 ) 


78 inva1id ELSE or ENDTE 
78 (ELSE, ENDIF の 不正 。 ) 


79 missing ENDTE 
7 9 (ENDIEF が な い 。 ) 


7A initia1lj ヶ と a 上 ion OF non-COMMON yariab1e 
7A (CBLOCKDATA の 中 で コモ ン に 入っ て いな い 変 数 の 初期 化 を し て い 
る 。。 ) 


7B "DOUBLE PRECTSTON" not supportted, treated as "REAL" 
7B (CDOUBLE PRECISION は REAL と し て 扱う 。 ) 


7C UNUSED 
7C (未定 義 ) 


7D UNUSED 
7D (未定 義 ) 


7E UNUSED 
7E (未定 義 ) 


7F UNUSED 
7F (未定 義 ) 


8 の 9 *FATAL* no proqgram to compi1e 
80 (CXFEATALX コン パイ ル す る プロ グラ ム が な い 。 ) 


81 *FATAL* missing SOPTTIONS statement 
81 (CXFATALX $OPTIONS 文 が な い 。 ) 


82 *FATAL* missinqd = in SOPTTONS statement 
82 (C※EATALX $OPTIONS 文 に ビデ が な い 。 ) 


83 *FATAL* inva1id digit in number in SOPTIONS 
83 (CX※FATALX $OPTIONS 文 に 不正 な 数 字 が ある 。 ) 


84 *FATAL* va1ue exceeds 255 in SOPTTIONS 
84 (C※EFATAL テ $OPTIONS 文 に 出る 数 値 が 255 を 越え た 。 ) 


85 *EFATAL* COMMON tab1e OverE1ow, increase で C= 
85 (CXEATALX コモ ンプ ブロ ッ ク が 大 きす ぎる (C= テ を 増やす の が よ 


いう 計 ョ うけ 


86 *FATAL* unknown option (1etter before =) 
86 (C※FATAL テ 不正 な オプ ショ ン が 指定 され た 。 ) 


87 *FATAL* missinq END statement 
87 (C※FATAL テ END 文 が な か っ た 。 ) 


88 *FATAL* LABEL TABLE overflow, increase = 
88 (CXFATALX 文 番号 テー ブル の 不足 (し = を 増やす の が よい )。 ) 


89 *FATAL* SYMBOL TABLE overFlow, increase S= 
89 (CXFATALX 名 前 テー ブル の 不足 ( Sー を 増やす の が よい )。 ) 


8A *FATAL* ARRAY STACK overFlow, increase A= 
8A (*※EFATALX 配列 の え 字 ス タッ ク の 不足 ( A 人 を 増やす の が よ 
SO5 っ ク 


8B *FATAL* DO LOOP STACK overE1Low, 1nCreaSe D= 
8B (※XFATALX DO ルー プス タッ ク の 不足 (D= を 増やす の が よい )。) 


8C *FATAL* staok overEF1ow (compi1ler error ) 
8C (CXFATALX スタ ッ ク 不 足 ( コン パイ ラ の エラ ー )。 


8D *FATAL* staok overFl1ow (compi1ler error ) 
8D (*FATALX スタ ッ ク 不 足 ( コン パイ ラ の エラ ー )。 ) 


8E *FATAL* interna1 tab1es exceed user memory 
8E (※XFATALX メモ リー が 不足 。 ) 


8F *FATAL* MEMORY ERROR 
8F (※FATALX メモ リー の エラ ー。 ) 


9 の *FATAL* OPEN error on COPY fi1e 
90 (※XFATALX COPY 文 で 指定 し た ファ イル が OPEN で き な い 。 ) 


91 *FATAL* toOo many routines to compi1e (> 62) 
91 (CX※FATALX サ プ プ ログ ラム , 関数 の 数 が 62 を 越え た 。 ) 


92 *FATAL* no more room to store DATA statements 
9 2 (※FATALX DATA 文 で 定数 の 数 が 変数 の 数 より 多い 。 ) 


93 *FATAL* ]F-THEN stack overF1low, increase = 
93 (*XFEATALX 1FーTHEN スタ ッ ク の 不足 (IT= 増 や す の が よ 


SD 


94 *EFATAL* Nested "COPY" statements not Permitted 
94 (CXFATALX COPY 文 で 見 て いる FILE に 再び COPY 文 が あ 


る 。 ) 


95 *FATAL* Disk write error (disk probab1y Fu11 ) 
95 (※XFEATALX ディ スク ライ ト エ ラー( た ぶん 容量 不足 )。 ) 


96 *FATAL* Cannot oc1ose fi1e (disk probab1y Fu11 ) 
96 (*FATALX ファ イル の クロ ー ズ が で き な い ( た ぶん 容量 不足 )。 ) 


97 *EATAL* Tnput fi1e not found 
97 (FEATALX 入力 ファ イル が な い 。 ) 


98 *FATAL* Tnva1id drive speo1fFEier 
98 (CXFATALX ドラ イブ 指定 の 不正 。 ) 


99 *FATAL* No fFi1ename found on COPY statement 
99 (CXFATALX COPY 文 に ファ イル 名 が な い 。 ) 


9A *FATAL* Fi1e speoifFied on COPY not found 
9A (CXFEATALX COPY 文 で 指定 し た ファ イル が な い 。 ) 


3 アセ ン ブ リ 言語 と の イン ター フェ ー ス 

この FORTRAN は コン パイ ル の 際 . ASM と いう 一 時 的 な ファ イル を 作り , 
それ を ASSM. COM で アセ ン ブ ル し て . OB」 フ ァイル を 得 て い ます 。 フォ 
ー ト ラン の ソー スプ ログ ラム 中 で , 第 1 カラ ム が アス テリ スク ( '※ ! ) の も 
の は , . ASM フ ァイル に その まま 出力 され ます 。 こ れ に より , ユー ザー は , 
フォ ー ト ラン の ソー スプ ログ ラム に 機械 語 を 混ぜ る こと が で きま す 。 

この 機能 を 用 いる 時 の 注意 。 こ の FORTRAN は コン パイ ル の 時 必ず 1 行 の 
さき 読み を 行う の で , アセ ンプ リ 語 の プ ブロック が は じ ま る 度 に , 直前 に 
CONT I NUE 文 を 入れ な けれ ば な り ま せん 。 ま た, どの レジ スタ を 変え て も 
か まい ませ ん が . スタ ッ ク ポ イン タ は 保存 する 必要 が あり ます 。 


く 例 

CONTINUE 
* MVI A, '※「 
* STA STRING 


4 その 他 の 注意 


1. 今 ま で 文字 列 を 引数 と する いく つか の ルー チン を 示し まし た が , この 文 
字 列 の か わり に, 文字 列 を 含む 変数 や 配列 名 を 用 いる こと が で きま す 。 
変数 は , 代入 文 で 文字 列 を 含ま せる こと が で きま す 。 

A テ "STRING'" 

一 度 に 代入 で きる の は 6 文字 まで で , 文字 列 が 6 字 に 満た な いと 変数 の 下 の バ 
イト か ら 0 を 埋め て 行き ます 。 

OPEN ルー チン の よう に 引数 が ファ イル 名 の 場合 は , 

(1) 0 で は な い , ⑫⑳ は じ め の 15 バ イト 

を ファ イル 名 と 考え ます 。 


2. 変数 . 定数 の か わり に 16 進 定数 が 使用 で きま す 。 1 6 進 定数 は , $ で 
は じ ま り 0 て 9, AEF を 用 いて 0 一 FFFF の 間 で な く て は な り ま せん 。 実 
際 に は 整定 数 と 扱わ れ ま す 。 

く 例 A=$2000 
B= テ ー$FF 
$ を 用 いた 1 6 進数 は , 整定 数 と し て 扱わ れる の で , 
A デ $41 
と し て も , A は , ' A ' を あら わし ませ ん 。 こ の よう な こと を する た め に は , 
井 を 用 いま す 。 井 の あと に くる 1 6 進数 は , その まま 変数 に 代入 され ます 。 た 
だ し 8080 の 約 東 で 低位 の バイ ト が 高位 の バイ ト よ り 前 に な り ま す 。 

1 6 進数 を バッ クス ラッ シュ 〈 ヽ ) が 囲む こと で リテラ ル の 中 に 任意 の 値 の バ 

イト を 含ま せる こと が で き ます 。 例え ば 

際 末 SNS の NHS ANNBP2ARMPEE 
OHPORMAOTTm (て 'THUMOPNEBNYMOCE SO2 で 2  ) 
! へ ! の か わり に 別 の 字 を 使い た い 時 は , CONF 1IG. COM の 実行 時 に 変更 
し ます 。 バ ックス ラッ シュ は , コン ソー ル に よっ て は , 半 で 表示 され ます 。 


3. 一 度 に オー プン で きる ファ ォ ル は 。 8 ケ (0 王 7 ) で す 。 た だ し 0 と 1 
は いつ で も オー プン され て いま す 。 


4.1 NORTH STAR 浮 動 小数 点 ボ ー ド の 使い 方 


この FORTRAN で は NORTH STAR の 浮動 小数 点 ボ ー ド が 使用 で き 
ます 。 CONF 1G. COM で その こと を 指定 し ます 。 する と ラン タイ ム ルー 
チン は 浮動 小数 点 演算 を その ボー ド で 行ない ます 。 実行 時 に は ポー ド の 有無 を 
し ら べ , も し な い 場 合 は , ソフ トウ = ア で 行う よう に 切り か えま す 。 注意 すべ き 
こと は , NORTH STAR の ボー ド を 用 いる と , 浮動 小数 点 範 囲 が . 10 * 
※ 土 63 に 制限 され る こと で す 。 


4.2FORTRAN と ANSI66 FORTRAN の 違い 


改善 点 

1. 自由 形式 の 入出 力 が で きま す 。 

2 IMPLICITT 文 に よる 型 の 宣言 が で き ます 。 

3 READ/WR 1 TE 文 で END 王 , ERR 王 に よる 制御 が で きま す 。 

4. COPY 文 で 他 の ファ イル か ら プ ログ ラム の 結合 が で きま す 。 

5. イン ライ ン で アセ ンプ リ 言 語 を 含め る こと が で きま す 。 

6 CPM の ファ イル アク セス が で きま す 。 

7 1 バイ ト ま で の ファ イル の ラン ダム アク セス が で きま す 。 

8. 実 ア ドレ ス に よる メモ リー 操作 が で きま す 。 

9. プロ グラ ム で 実行 を 遅らせ る こと が で きま す 。 (DELAY 文 ) 

10. 擬似 乱数 発生 が で きま す 。 CRAND 関 数 ) 

11. 実行 時 の エラ ー ト ラッ プ を プロ グラ ム で 制御 で きま す 。 

よめ 。 プロ グラ ム の CHA IN が で きま す 。 

13. プロ グラ ム 実 行 中 に オブ ジェ クト プロ グラ ム が LOAD で きま す 。 

14. 13. で ロー ド し た プロ グラ ム メ 実 行 の た め の CALL 関数 が あり ます 。 

15. プロ グラ ム の トレ ー ス 機能 が あり ます 。 

16. IF〒ーTHEN 一 ELSE 文 が あり ます 。 

1 較 応 プロ グラ ム に より コン ソー ル か ら の プロ グラ ム の 実行 の 中 断 を する こ 
と を 許可 , 拒否 する こと が で きま す 。 


18. ENCODE, DECODE 文 に に り メ モリ ー 上 で の デー タ 変換 が で きま す 。 
19. 多重 リタ ー ン が で きま す 。 
20. 入出 力 文 で 人 KK 交換 を 用 いる こと が で き ます 。 


FORTRAN に な い 機 能 

1. 倍 精 度 実数 は 単 精度 実数 と し て 扱わ れ ま す 。 

2 複素 数 型 が あり ませ ん 。 

3. EQUIVALENCE 文 が あり ませ ん 。 

4 次 の よう な D AA ム 文 は 使え ませ ん 。 

DA 8 生 人 02 1 うま 02058 あら 
入出 力 に お ける 変換 ( 桁 移 動 子 ) は 使え ませ ん 。 
文 関数 の 使用 が で きま せん 。 
関数 , サブ ププ ログ ラム , 共通 プ ブロ ッ ク の 名 と し て 次 の も の を 用 いる こ 
と が で きま せん 。 

人 CD 5。 も Mi SPP RISW 
8. EXTERNAL 文 は 使え ませ ん 。 

9. 添え 字 と し て 配列 の 要素 は 使え ませ ん 。 

10. ハイ パ ボ リッ ク な どい くつ か の 数 学 関数 が あり ませ ん 。 


さら の 


SAMPLE PROGRAMS 


on the fo11owing pages you wi11 Eind 1istings of the samp1e 
programs that may have been included on your disket て @e・ 


旨 
C "CHATIN.FOR" 
C 
C THTS ROUTINE DEMONSTRATED THE "CHAIN' FUNCTION, ALL IT 
C DOES TS REOUEST THE NAME OF THE PROGRAM TO CHATIN TO 
C AND THEN CHAIN・ 
C 
DIMENSTON IF(3) 
TYPE "FILE2" 
C 
C GET THE FILENAME TO CHATIN TO 
C 
READ (9 の ,1) IF 
1 FORMAT (3A6 ) 
C 
CEAENIO TTYT 
で 
CALL CHATIN (ITF, TER ) 
C 
C ONLY GETS HERE TF AN ERROR HAPPENS 
C 
TYPE 'ERROR FROM CHAIN = ',TER 
CALL EXIT 
END 


OPTTONS X 


C 
C "DUMP.FOR" 
C 
C THTS PROGRAM DEMONSTRATED THE USE OF THE DUMP STATEMENT . 
C 
C CALL 'X' FOR TRACEBACK PRTNTOUT (JUST FOR SHOW ) 
C 
CALL XX 
END 
OPTTONS XX 
SUBROUTINE XX 
C 
C DEFTNE THE DUMP STATEMENT TO BE USED IN CASE OF AN 
C ERROR,。 WITH DUMP TD OF 'ROUTTNE-X『 


(4 
DUMP /ROUTINE-X/ Tr,J,K 
ェ =1 
=2 
K= エ + リ 
紀 


C CREATE AN ERROR TO CAUSE DUMP STATEMENT TO BE ACTTVE 
で 

Z=1 / の 

END 


OPTIONS X 


8 "GRAPH.FOR" 
る GRAPH SINE FUNCTION FROM -PI TO PLI IN INCREMENT OF ・.12 
8 DIMENSTON LINE(79) 
TNTEGER WHERE 
e OPEN UNIT 6 TO WRITE TO CONSOLE 
CALL OPEN (6, "CON: ' ) 
8 WRITE TITLE 
C 


WRITE (6,2) 


な FORMAT (28X,'GRAPH OF SIN') 
TYPE 
TYPE 
C 
C SET PT AND -P ェ 
GS 
PI=3 .1415926 
MP エニ =ーPI 
C 
C MAIN LOOP 
C 
DO 199 ANGLE=MPI , PI , .12 
@ 
C FIGURE OUT WHICH ELEMENT IN ARRAY SHOULD BE SET TO *。 
C SIN RETURNS -1 TO 1 WHICH TS CONVERTED TO -35 TO 35 
C AND THEN OFFSET SO FINAL RANGE TS 1 TO 79 
oe 
WHERE=S IN ( ANGLE )*35+35 
@ 
C FTGURE OUT HOW MUCH TO BLANK IN THE OUTPUT ARRAY 
C 
TBLANK=MAX9(35, WHERE ) 
(el 
C AND BLANK ITT 
(e 
DO 15 エ =1, TBLANK 
15 5XNE( エ T)=' * 
【e 
C HMM... WHICH STDE OF ZERO ARE WE ON? 
C 


三 送 柏 診 一 


TF (WHERE .GT. 35) THEN 


ce 
C RIGHT STDE 
( 
DO 2 の 1=36,WHERE 
2 の LTN ( エ T )=* テ * 
ELSE 
C 
C LEFT SIDE 
「 ら 
DO 39 I=WHERE, 35 
3 の LINE(T)='*" 
ENDTF 

思 
C SET "ZERO" 
@ 

LINE(35)="+" 
= 
C AND THE SIN VALUE 
(et 

LINE(WHERE)='*" 
で 
C TEF THTS VALUE TS < 35, SET SO WE OUTPUT TO ZERO LINE 
C 

TF (WHERE .LE. 35)WHERE=35 
ee 
C AND FINALLY OUTPUT THE LTNE 
C 

WRITE (6,21) (LINE( エ ) , ユ =1 , WHERE ) 
21 FORMAT (79A1 ) 
19 の CONT INUE 

CALL EXTT 

END 


0E キ ー 


OOO _QOQOOOOQOOO 


oOOOO 


OO 0010)Q (3 ⑬ :、.G⑬ 


"LOAD.FOR" 
THIS ROUTINE DEMONSTRATED THE USE OF THE 'LOAD' ROUTTINE 
中 O LOAD AN ASSEMBLY LANGUAGE FILE INTO MEMORY AND 
THEN CALL IT FORM FORTRAN 
TINTEGER A 
FIND OUT WHICH ONE TO LOAD 
TYPE 'Enter の to "LOAD" LD.HEX" 
TYPE "Enter 1 to "LOAD" LD.OBJ" 
ACCEPT "which one: ',LTYPE 
TEF (LTYPE .EO. 9) THEN 
TYPE ' "LOAD" ing SLD。HEX" * 
ELSE 
TYPE ' "LOAD"ing "LD・ OBJ"! 
ENDIF 


MUST LOAD "LD.HEX" OR "LD.OBJ" INTO MEMORY 
BEFORE WE CAN CALL IT 


CALL LOAD ('LD' ,LTYPE, TER ) 
TYPE 'ERROR FOR LOAD=' , IER 
CHECK THE RETURNED ERROR CODE FROM LOAD 
TEF (IER .NE. 9)STOP "LOAD ERROR 
"CALL" THE ROUTTNE 
A=CALL (S899 の 9, 1 ) 
RESULT SHOULD BE 2 
TYPE 'THE RESULT OF THE ASSEMBLY ROUTINE TS: ',/A 


CALL EXIT 
END 


ー ま 2 一 


"LD.ASM" 


THTS ROUTTNE TS USED BY "LOAD.FOR" ,。 ALL TT DOES TS TO 
DOUBLE THE NUMBER SENT TO IT 

NUMBER TS PASSED TIN DE FROM FORTRAN PROGRAM AND RESULT 
TS PASSED BACK 1IN HL TO FORTRAN PROGRAM 


YE 


ORG 8 の の の H 

PUSH D :NUMBER FROM FORTRAN PROGRAM 
POP H 7GET ITT TO HL 

DAD H HL*2 

RET : RETURN IT 


OPTTONS X,O 
"RAND.FOR" 


THTS PROGRAM GENERATES A SEOUENCE OF RANDOM NUMBERS, 
DIVTDES THEM TITNTO 1 の INTERVALS AND COUNTS HOW MANY 
RANDOM NUMBER FALL TINTO EACH TINTERVAL. FINALLY TT 
PRINTS OUT THE COUNTS OF EACH TNTERVAL。 


OOOOOQOOOO 


DIMENSTON NUM( 19) 
DATA NUM/1 の *9/ 
TINTEGER T,A, D, FLAG, TITME(6 ) , DATE (6 ) , START, END 
99 DO 5 の エ =1,19 の 
5 の NUM( I )= の 
ACCEPT "How many? "',/KK 
DO 1 エ =1,K 
=RAND ( の ) *1 の +1 
NUM(L ) =NUM(L ) +1 
TYPE NUM 
GO TO 99 
END 


三 肖 8: テ 


OPTTIONS XX,Q 
C 
"SEEK.FOR" 
THTS PROGRAM DEMONSTRATES RANDOM ACCESS エ T/O 
A RECORD, READ NUMBER THAT THE RECORD CONTATINS。 


ADDS 1 TO THE NUMBER READ AND WRITES IT BACK INTO 


C 
e 
C 
C 
C IT FTIRST WRITES A FITLE OF NUMBERS,。 THEN REOUESTS 
C 
C 
C THE SAME RECORD 

C 


ERRSET 599, エ 
CALL DELETE( 'TEST' ) 


OPEN THE TEST FILE 
CALL OPEN (2,'TEST') 

READ HOW MANY RECORDS TO CREATE 
ACCEPT "HOW MANY RECORDS? 『',K 


WRITE THE FTILE 


0O0. 0 の 0 66@ 


DO 1 r=9,K 

WRITE (2,2) エ 
FORMAT (15) 

TYPE 'FTLE WRITTEN' 
TYPE 

REwWIND 2 

GO TO 19 

CALL, OPEN (2,。'TEST' ) 


いい ピ 


REOUEST RECORD TO DISPLAY 


ACCEPT "WHICH RECORD? 『',/K 


POSTTTON THE FILE (EACH RECORD TS 7 CHARACTERS。, 
5 FOR NUMBER, 1 FOR CARRTAGE RETURN AND 1 FOR LINE FEED 


CALL SEEK (2,7*K, TER ) 


CHECK THE ERROR CODE 


QOQOQO QOQOOQOc ヒ OOO 


TEF (TER .NE. の ) THEN 
TYPE 'SEEK ERROR, CODE= ',TER 
CALL CLOSE (2) 
CALL DELETE ('TEST') 
STOP 
ENDIF 


ー ゴ 0 デ 


C READ THE CURRENT VALUE 


(91 
READ (2,2) r 
TYPE "CURRENT VALUE OF RECORD ',/K,/' IS !', エ 
C 
C _ POSITION BACK TO THE SAME RECORD 
C 
CALL SEEK(2,7*K ) 
ェ エニ エ +1 
で 
C WRITE THE UPDATED VALUE 
C 
WRITE (2,2) エ r 
GO TO 1 の 
C 
C TRAP ERROR 
C 
5 の の TYPE '** み ERROR TRAPPEPD さをり 


TYPE 'ERROR CODE = ", エ 
CALL CLOSE (2) 

CALL DELETE ('TEST') 
STOP 'ERROR EXIT" 

END 


ー105 一 


4 ら 

C "SORT.FOR" 

人 

C THIS ROUTINE TS A DEMONSTRATION OF A SHELL SORT 

人 
TNTEGER T,A,D,FLAG, TITME(6), DATE (6 ) , START , END 
DIMENSTION A(2999 ) 
TYPE "She11 sort'" 


TYPE 
【 
C GET HOW MANY NUMBERS TO SORT 
【e 
88 ACCEPT "How many numbers (2-2999) ',NN 
TEF (NN .LT. 2.OR.NN .GT. 2 の 99 )STOP 
人 Q 
C GENERATE ARRAY OF NUMBERS TO SORT 
1 
DO 19 エ =1,NN 
19 A(T )=(RAND( の ) *NN ) +1 
TYPE 'Staringd SO エト" 
D=NN 
FLAG= の 
【e 
19 の D=TF TX( (D+1 ) /2 ) 
@ 
C TYPE OUT INTERMEDTATE STUFF 
の 
TYPE 'D=',D 
。 
119 ND=NN-D 
DO 15 の N=1,ND 
TF (A(N) .LE. A(N+D) )GO TO 159 
NPD=N+D 
=A(N ) 
A(N )=A(NPD ) 
A(NPD ) =T 
FLAG=1 
c 
15 の CONT INUE 
TEF (FLAG .EO. 1)THEN 
FLAG= の 
GO TO 119 
ENDTF 
TEF (D .GT。 1 )GO TO 19 の の 
TYPE "'A11 done' 
TYPE 
@ 
C TYPE OUT SORTED ARRAY 
(の 
TYPE (A( エ ) , エ =1 , NN ) 
GO TO 88 
END 


ー 人 @⑥ 一 


OPTTIONS X,O 


(al 
C "TRACE.FOR" 
C 
C THTIS ROUTINE DEMONSTRATES THE USE OF THE 'TRACE' AND 
C "ERROR' TRAPPTNG FUNCTTONS 
C 
TYPE 'STARTTING EXECUTTON " 
C 
C SET ERROR TRAPPTNG: ON ERROR GO TO STATEMENT 5 の 9 WITH 
C ERROR CODE IN VARTABLE エ 
e 
ERRSET 59 の , エ 
19 CONT TINUE 
の 
C TURN TRACTING OFEF 
C 
TRACE OFF 
4 
C GET AN INPUT # FROM THE USER 
【e 
大 GCEEPTP ' を > KK 
oi 
C 1TF < の , TERMTNATE 
< 
TEF (K .LE. の )GO TO 99 
@G 
C TF INPUT # > 19 の 9, THEN TURN TRACTNG ON 
(と 
TE (K .GT. 199 の )TRACE ON 
@ 
C AND OUTPUT THE NUMBERS, TO SEE EFFECT OF THE 
C ERROR TRAPPING, HTT CONTROL-C 
(o 
DO 2 の エ =1,K 
2 の TYPE エ 
GO TO 1 の 
o 
99 TYPE 'DONE 
STOP 
@ 
C ERROR TRAPPTNG HAPPENS HERE 
C 
5 の の TYPE 'ERROR TRAPPED, TER= ', エ 
END 


ー 事 0 な デー 


THTS SAMPLE PROGRAM SHOWS HOW TO HANDLE THE 
CURSOR AND CLEAR SCREEN FUNCTTONS OF A CRF 


OOOO 


PAUSE "CLEAR SCREEN" 
CALL。 SCREEN (1,9,9) 


WRITE THE LTNE NUMBERS OUT FROM THE BOTTOM 
LINE TO THE TOP 


oOOO 


DO 1 の 9 エ =23,9 の ,-1 
CALL SCREEN (2。,9。+ ) 
WRITE (1。2) r 
2 FORMAT ("LINE ', エ 2.2Z) 
19 CONT INUE 


1 * 
C WAIT 5 SECONDS 
CALL。 DELAY (569 ) 
C "CLEAR THE SCREEN AGATN 
CALL SCREEN(1, の ,9) 
ACCEPT 'ENTER ANY NUMBER '。A 
エ =AMOD(A, 399 )+1 


DO 99 J ゴ =1, エ 
Z=RAND(9 ) 


ら 
め 


AGATN CLEAR IT 
CALL SCREEN(1, の ,9) 
NOW PUT RANDOM PLUS SITGNS ALL OVER THE SCREEN 
DO 49 T=1,499 の 
GET NEXT SCREEN POSTTTON AND GO THERE 
CALL SCREEN(2,TFIX(RAND(9 )*89 ) 。 TFTX(RAND(9) *23) ) 
PUT THE + ON THE SCREEN 


aoOoOoO Ooo Qoo Qoo 


CALL PUT (CHAR("+"。 の ) ) 
CALL DELAY(599 ) 

OUTPUT A BELL 
CALL SCREEN(5,9,9 ) 


CLEAR IT NOW 


oOO OoOQGO OO 


CALL SCREEM(1,9,9) 
CALL EXITF 
END 


いい ge 


SUBROUTTNE SCREEN(FUNCT, X,Y ) 


【a 
C THTS TS A SAMPLE SCREEN DRTVER FOR AN ADM-3A TERMTINAL 
(o 
TNTEGER FUNCT,X,Y 
TF (FUNCT .LE. の .OR.FUNCT .GT. 5)RETURN 
e 
C FUNCTTON: 
Le 1=CLEAR SCREEN 
奄 2=POSTTTON CURSOR 
C 3=SET REVERSE VIDEO 
C 4 =SET NORMAL, VITDEO 
(GS 5=BELL 
補 
GO TO (199, 2 の 9 , 3 の 9 の, 4 の の, 5 の 9 ) , FUNCT 
で 
C CLEAR SCREEN 
C 
1 の の CALL,。 PUT (12) 
RETURN 
o 
C SET CURSOR TO X,Y 
で 
2 の の CALL PUT(27) 
CALL, PUT (192 ) 
CALL。 PUT (X+3 2 ) 
CALL。 PUT (Y+32 ) 
RETURN 
C 
C SET REVERSE VIDEO 
色 
39 の RETURN 
C 
C SET NORMAL VITDEO 
C 
4 の の RETURN 
co 
C OUTPUT A BELL 
(o 
59 の CALL, PUT(7 ) 
RETURN 
END 


ー 吾 0 き : 王 


THTS PROGRAM DEMOSTRATES THE USE OF THE SET FUNCTION OF 
THE "BIT" ROUTTNE. YOU ENTER THE BIT TO BE SET AND 
CAN SEE EXACTLY WHICH BTIT TS CHANGED・. 


ビバ OOOOO 


ム = の 

ACCEPT "BTT2 "/B 

ITF (B .GT. 47) THEN 
TYPE "TINVALTD BIT NUMBER, ONLY の -47" 
GO TO 1 
ENDTIF 

ITF (B .LT. の )STOP 


SET THE BTT 
80EEBTEP (AB。 "8S' ) 


OUTPUT THE WORD IN HEX FORMAT 


OOO OOO 


WRITE (1,2) A 
FORMAT (K12 ) 
GOTO 1 

END 


い 


= 計時: 


SAMPLE PROGRAM COMPILATTONS AND EXECUTTON 
On the fo11owing pages you wi11 find examples of the 
Compi1ation and execution ofF several1 of the Samp1e programSs 
1isted above. The fo11lowing notes refer to the next few 
PadeSs 
1) input ig under1ined. 
2) CP/M output ig printed in bo1d. 


3 ) FORTRAN output (either compiler or execution) is neither 
under1ined or bo1qd. 


4) notes are in 【]。 


は 


B>FORT GRAPH .XBB {compi1e with 1isting to consol1e, 
・ASM and .OBJ to drive Bj] 


NEVADA FORTRAN 3.9 (MOD の ) 
Copyright (C) 1979, 198 の , 1981, 1982, 1983 ran Kett1eborough 


AM NEVADA Fortran 3. (Mod 9 の ) ** Compi1ing File: 
GRAPH 。FOR まき きき 才 


の 9 の 1 OPTIONS XX 


し を 
C GRAPH SINE FUNCTTON FROM -PT TO PI IN 
C INCREMENT OF .12 
C 
の 992 DTMENSTON LINE(79) 
の 9 の 3 TNTEGER WHERE 
@ 
C OPEN UNTT 6 TO WRITE TO CONSOLE 
(と 
9 の 94 CALL OPEN (6,'CON: " ) 
@ 
C WRITE TITTLE 
で 
9 の 9 の 5 WRITE (6,2) 
の 9 の 6 2 FORMAT (28X,'GRAPH OF SIN' ) 
の 9 の 97 TYPE 
9998 TYPE 
C 
C SET PIT AND -Pr 
(で 
の 9999 PT=3 .1415926 
9 の の 1 の MP エニ = ニーP エ 
【e 
C MATIN LOOP 
で 
の の 1 1 DO 1 の 9 ANGLE=MPT , PT , .12 
C 
C FIGURE OUT WHICH ELEMENT TIN ARRAY SHOULD BE SET TO *, 
C SIN RETURNS -1 TO 1 WHICH TS CONVERTED TO -35 "TO 35 
C AND THEN OFFSET SO FTINAL RANGE TS 1 TO 7 の 
1 ま 
9 の 1 2 WHERE=S IN ( ANGLE ) *35+35 
4G 
C FTGURE OUT HOW MUCH TO BLANK IN THE OUTPUT ARRAY 
C 


で 


9 の 1 3 TBLANK=MAX の (35, WHERE ) 
(の 
C AND BLANK TPT 
(os 
9 の 14 DO 15 エ =1 , TBLANK 
9 の 15 15 LTNE( エ )=' " 
C 
C HMM. . .。 WHICH STDE OF ZERO ARE WE ON? 
0 
の 16 TF (WHERE .GT. 35) TEHEN 
C 
C RIGHT SIDE 
9 
の 1 7 DO 29 エ =36, WHERE 
の 18 2 の LINE( エ T)='*" 
の の 19 ELSE 
C 
C LEFT SITDE 
C 
の 2 の DO 3 の エ =WHERE, 35 
99 の 21 3 の 9 LINE( エ )='** 
9 の 22 ENDTF 
Le 
C SET "ZERO" 
い Ca 
の 2 3 LINE(35)="+" 
C 
C AND THE SIN VALUE 
C 
の 9 の 24 LINE (WHERE )='** 
C 
C TEF THTS VALUE TS < 35,。 SET SO WE OUTPUT TO ZERO LINE 
C 
の の 2 5 - ITF (WHERE .LE. 35)WHERE=35 
で 
C AND FTINALLY OUTPUT THE LTNE 
で 
9 の 26 WRITE (6,21 ) (LINE( エ ) , エ =1 , WHERE ) 
の 27 21 FORMAT (7 の A1 ) 
の の 28 1 の の CONTTNUE 
の 29 CALL EXTT 
の の 3 の END 
** ま Generated Code = 687 (Decima1 ) , の 2AF (Hex) Bytess 
* み Array Area テ 42 の 9 (Decima1 ) , の 1A4 (Hex) Bytes 
No Compi1e errors 


NO _ASSEMBLY ERRORS. 175 LABELS WERE DEFINED. 
二 全 5ー 


B>FRUN GRAPH {execute the programl 
GRAPH OF SIN 


を 
スス メス ュ メ は # よ アコ 
に まま まま えま ええ まえ 』 キ 
ドミ ネネ る る ええ まる る まま る ええ どっ 0 
ドミ 3 スミ まえ る えま 33 まま まま まま る ええ る ふ どう 
ドス ネネ ミュ スミス ミネ えま えま まま まま えま 3 まる ょ は ュ ど う 
トド よ は ミュ ミネ る る える えま る ま まま えま えま えま る まま まま えま も どう 
ト よ る る ええ も る ええ まるまる まえ は 3 は 444 まま は ュ ど う 
ドス ネス ミス ネス よ まま も まえ えま まま まる まま えま:】 に まま まま えま る まえ どう 
PS くさ よく ん る は ふま えよ まえ まえ まま えま えま る まえ まえ えど コ 
ドス スム ム ム ム ミミ ミュ ミュ よる えま る まま まま まま まえ まえ まま る るる もど だ コ 
GAAAAAGAAAAAA は AX は AA は は 4 は 4 は 4 は は 1 ま は えも どう 
ドス スス スス ミス よ よ よ る ふるえ まま まま まま 3 まま まま まま まま まる る どう 
POGAAAAAAAAAAA4A は 444243 は 4 は 3 は 3 えど う 
GS ス よく よさ よ ス メス メ スス ミミ 3 まま まえ ま る たま ます ま る る よど っ 
ドス スス スム スム スス ムネ よ よる えま まま まま ええ る まる まま る まま まる る もど コ 
AAAAAAAAAA は メス ススメ ミミ ええ えま すう まま よさ よど だ コ 
POGAAAAAAAAAAAA は 4244 は 3444443 は まとう 
ド ネ まろ まえ えま ええ まま まま まま まま るる に た まま も どう 
ドス スム ススム る よ ム よる る ええ ええ まる まるまる まえ る どう 
トス ホネ スス メメ ええ ええ えす えよ えす えど う 
ドス スネ ミュ えま まえ まま 3 まま も ュ どう 
メメ メメ メメ メメ メデ アコ 
スム ムスメ ム メメ アコ 
メメ アコ 
に 
二村 
メメ メメ 】 
YKTAA メ メメ 1.】 
本 
本 に スネ まま まま えま も ま 3 も 3 は 8 
と きよ メメ ミスミ ミミ: メメ 33 まま 3 は は 3333 は 3. 
PR スス メメ 4 ま 44 は 243 は 41313LAJ 
PS メメ 3 すえ は 2 は は 4 は 4 は 43444 は 43111ALA 
KN よ よ ム スム トメ メメ は は よ 44 は 4 は 431AALALLALLJ 
本 
スミ る えま 4 ま 43 ま 3 は 33 まま まま も も も も た も 】 に まま まま る まま.』】 
本 に まま まま えま 】 し 
PS は ええ メメ 23 まま よ は すま まま すす まま もし た も しい た も ん しい 
き ス メス よ メメ オメ は すす 3 は は すま 4 は 24444118 ま MLLLLLAL 
PT は 2444% は 3 た まま よ 44441LLLALLLALLLLAI 
メメ メメ メメ 3 は 32 ま 44444344413AALLLALAI 
スナ は 4 よ 2 ま すす また まま は 4 ま 11141 た LALLLI 
スス メメ ええ は 3 まま すま 3 は 143 は 331ALAALAI 
PS は ムスメ メメ まま すすま すま る まま ALLA』 
本 
本 
本 
二 
ミュ メス ュ ミネ よ す 】 
と 


ーッ 語 褒 一 


B>FORT LOAD・.X {compile, 1isting to console, .ASM 
and .OBJ to defau1t drive] 


NEVADA FORTRAN 3. の (MOD 9 の) 
Copyright (C) 1979, 198 の 9, 1981, 1982, 1983 Tan Kett1eborough 


* メ メメ NEVADA Fortran 3.9 (Mod の ) ** Compi1ing File: LOAD・.FOR 
し ああ ある 


9 の の 1 C 
C "LOAD.FOR" 
(e 
C THTIS  ROUTTINE DEMONSTRATED THE USE 
C OF THE 'LOAD' ROUTINE 
C TO LOAD AN ASSEMBLY LANGUAGE FTLE TNTO MEMORY AND 
C THEN CALL IT FORM FORTRAN 
( ら 
の 9 の の 2 TNTEGER A 
(ad 
C FIND OUT WHICH ONE TO LOAD 
(ot 
の 9 の 3 TYPE 'Enter の to "LOAD" LD.HEX" 
の の 9 の 4 TYPE "Enter 1 to "LOAD" LD.OBJ" 
9 の の 5 ACCEPT "which one: ',LTYPE 
Q@ 
の 9 の 96 TF (LTYPE .EO. の ) THEN 
の 9 の 7 TYPE ' "LOAD"ing "LD.HEX" " 
9 の 98 ELSE 
9 の の 99 TYPE ! "LOAD"ing "LD.OBT" " 
の の 1 の ENDTF 
C 
C MUST LOAD "LD.HEX" OR "LD.OBJ" INTO MEMORY 
C BEFORE WE CAN CALL IT 
で 
の の 1 1 CALL LOAD ("'LD' ,LTYPE , TER ) 
「p 
の 1 2 TYPE 'ERROR FOR LOAD=' , TER 
@ 
C CHECK THE RETURNED ERROR CODE FROM LOAD 
C 
の 91 3 TF (TER .NE. の )STOP 'LOAD ERROR " 
(> 
C "CALL" THE ROUTTINE 
(e 
の 1 4 A=CALL, (S8999, 1 ) 
(o: 
C RESULT SHOULD BE 2 
C 


ー-115 一 


9 の 1 5 TYPE 'THE RESULT OF THE ASSEMBLY ROUTTNE 
916 CALL EXT エ PT 
の 1 7 END 


** Generated Code = 4 の 5 (Deocima1 ) , の 195 (Hex) Bytes 


NO ASSEMBLY ERRORS. 135 LABELS WERE DEFTNED・ 


B>FRUN LOAD {execute the program 1 


Enter の to "LOAD" LD.HEX 

Enter 1 to "LOAD" LD.OBJ 

Which one: の 

"LOAD" ing "LD.HEX" 

ERROR FOR LOAD= の 

THE RESULT OF THE ASSEMBLY ROUTINE TS: 2 


ー 記 5i 一 


っ 


B>FORT TRACE .ZCC {compile with no 1isting, -ASM and 
・OBJ to drive C}] 


B>FRUN TRACE {execute the program]l 
STARTTNG EXECUTTON 
#: 4 


心 の いい ピ 


#: 14 の 

Pgm 1S execCuting 1ine の の 99 in routine MATIN 

Pgm is execCuting 1ine の の 1 の in routine MAIN 
1 

Pgm 1s executinqg 1ine の の 1 の in routine MATN 

Pgm is executinqg 1ine の 9 の 14 in routine MAIN 

ERROR TRAPPED, TER= 23 


STOP END IN - MAIN 


年 塊 ーー 


B>EFORT SORT .BBB {compi1e with 1isting, .ASM an 
・OBJ Files to drive Bj} 


B>FRUN SORT {execute the program] 
She1 1 sort 


How many numbers (2-299 の 9 ) 19 の 
Star1nq SO エモ 


D= 59 

D= 25 

D= 13 

D= 7 

D= 4 

D= 2 

D= 剖 

A11 done 
2 6 6 6 7 8 
8 9 9 1 y ス 2 14 
14 18 19 21 21 21 
21 22 ン に 1 と 人 4 28 28 
29 29 3 の ジス 33 に 
34 34 3 38 39 4 の 
4 の 41 46 46 48 48 
48 49 59 51 52 54 
58 58 59 6 の 6 の 61 
62 62 64 64 65 65 
66 67 68 7 の 7 の 776 
プ き 74 ん 76 76 77 
8 の 8 の 82 82 83 84 
85 86 88 89 89 91 
91 91 93 93 93 93 
94 96 96 96 97 98 
99 99 1 の の 1 の の 

HoOw many numbers (2-29 の の ) の 

STOP 

B> 


ー 和 導 め =ー 


@ ASSEMBLER 


に 概 要 

ASSEMBLER は , 8080 の アセ ンプ り 言 語 の アセ ンプ ラ で , お よそ 次 の 
よう な 使い 方 を し ます 。 

まず ED . COM な ど を 用 いて ソー ス フ ァ イル を 作り ます 。 フ ァイル 名 の 拡張 
子 は .ASM を 用 いま す 。 

吹 に AS SM. COM で アセ モン ブル し ます 。 AS SM は 2 パス で は じ め の パス 
で ラベ ル の 値 を 定め , 次 の パス で オプ ジェ クト を 作り ます 。 構文 上 の エラ ー は 
この 段階 で 発見 し ます 。 

こう し て で きた オブ ジェ クト は , RUNA. COM で メモ リー 上 に ロー ド し て 
容 物 赤 ま あぶ 、 また 。 FORTRAN の サ プ プ ログ ラム と し て 用 いる 時 は , 
LOAD 文 で メモ リー に ロー ド し ます 。 


く 例 > 
AED TEST. ASM ン ソー ス フ ァ イル の エディ ト 
AASSM TEST ノン アセ ンプ ブル 
ARUNA TEST ン オプ ジェ クト の 実行 
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2・ 操 作法 


ハー ドウ エア と し て は 32 人 K 以 上 の CPM が 動く 8080, 8085, Z80 
に よる マイ クロ コー ンピュータ シス テム が 必要 で す 。 

ディ スケ ッ ト 上 に は , この FORTRAN デ ィ ス ク に ある , ASSM. COM と 
RUNA. COM が 必要 で す 。 

使用 する の は , これ ら を コピ ー し た ディ スク で , マス タデ ィ ス ク は 大 事 に し 
まっ て お きま す 。 


以下 に アセ ンプ り 言語 の アセ ン ブ ル と 実行 の 基本 的 な 方 法 を 示し ます 。 


2.1 ソー ス フ ァ イル の アセ ン ブ ル 


次 の よう な コマ ンド で アセ モン ブ ル を し て オプ ジェ クト を 作り ます 。 
ASSM。ifileL. loeuis$LPO〕] ン ソン 
[ 〕] の 中 は , オプ ショ ン な の で 省略 が で きま す 。 


file は ノース ファ イル 名 で , . ASM が 仮定 され ます 。 先頭 に A : 一 P : 
を 付け て ドラ イブ 名 も 指定 で きま す 。 

1 は リス ティ ング ファ ィ イ ル <〈 . LST ) を 作る ドラ イブ 名 で , AP で デ 
ィ ス ク フ ァ イル , XX で コン ソー ル に 出力 し ます 。 不 要 の 場合 は を 指定 し ます 。 

oO は オプ ジェ クト ファ イル (〈 . OB~ ) を 作る ドラ イブ 名 で , AP で デ 
ィ ス ク フ ァ イル を 指定 し ます 。 デ パッ グ で オプ ジェ クト を 作ら な い 時 は Z と し 
ます 

e は エラ ー フ ァイル (.ERR ) の 指定 で , 1 と 同様 に 指定 し ます 。 

S は シン ボル ファ イル ( . SYM ) の 指定 で , ドラ イ プ 名 を A 一 P で 指定 
し ます 。 省略 する と , シン ボル ファ イル は 作り ませ ん 。 


$ 以 後に は 次 の よう な オプ ショ ン を つけ ます 。 複数 の オプ ショ ン を 用 いる 時 
は 続け て 入力 し て ゆき ます 。 
+ し また は ソー ス フ ァ イル の 1 一 4 カラ ム は 行 番 号 と し て 扱い ます 。 
ー ル ソー ス フ ァ イル に 行 番号 は あり ませ ん 。 
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十 , 一 上 の 指定 が な い 時 に は , ASSM 自 身 が 判断 し ます 。 


井 ソー ス フ ァ イル に 行 番号 が あっ て も , ASSM 自 身 が 順に 行 
番号 を つけ な お し て . LS エ ファ イル を 作り ます 。 

: .LST フ ァイル を ペー ジ ご と に 清書 し 各 ペ ー ジ に 見 出し を 
づつ 4 まま 

0 -LST フ ァイル は で きる だ け 短 か く 出力 し ます 。 
.LST フ ァイル は 1 行 72 桁 で 出力 する て と を 仮定 し て 出 
力 し ます 。 

2 80 文 字 を 仮定 し て . LS エ ファ イル を 作り ます 。 

3 132 文 字 を 仮定 し て . L し ST フ ァイル を 作り ます 。 


0, 1, 2, 3 の どれ も 指定 し な いと , 2 が 仮定 され ます 。 


S ・ SYM ファ イル が SID, ZSID と コン パチ ブル に な る 
よう に 作り ます 。 


く 例 
A>ASSML」TEST 
A>ASSML」B : TEST . AAXLA$ 一 上 韻 P0 


長い ファ イル の アセ ンプ ブル の 途中 で エラ ー を 発見 し た 時 な ど に は , コン トロ 
ー ル C に より アセ ンプ ブル を 終了 させ る こと が で きま す 。 


2.2 オブ ジェ クト の ロー ド と 実行 


こう し て で きた . OBJ フ ァイル は 次 の よう に し て 実行 し ます 。 
RUNA_file[ . Z し LC] ソン 

[ ] 内 は オプ ショ ン で す 。 

の .OBJ を ロー ド す る 前 に メモ リー を クリ ア し ます 。 

1 上 .OBJ を ロー ド す る だ け で 実行 し な いで 終り ます 。 

C .OBJ を ロー ド し , 実行 せ ず に . COM ファ イル を 作り ま 
す 。 . COM ファ イル は 100 耳 か ら は じ ま る も の に 限る の 
で , e 一 FORTRAN や cv 一 COBOL の 出力 の オプ ジェ ク 
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ト に 対し て この コマ ンド を 用 いる こと は 無 意 味 で す 。 


RUNA は 実行 が は じ ま る と , まず 自分 自身 を 使用 で きる メモ リ の 最も 高い 
所 に 移し , 次 に . OB] ファ イル を ロー ド し て オプ ショ ン に 従い 実行 を は じ め 
ます 。 
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3 ソー スプ ログ ラム の 形式 


ASSM. COM が 理解 する 入力 ファ イル は ED. COM な ど で 作 る 最も 普 
通 の テキ スト ファ イル で す 。 1 つの 行 に は 1 つの 文 が 入り ます 。 1 つの 文 は 最 
大 4 つの フィ ー ル ド に 分 割 さ れ ま す 。 そ れ は ラベ ル , オペ レー ショ ン , オペ ラ 
ンド , コメ ント で す 。 また 1 行 の 長 さ は 80 文字 まで で す 。 


3.1 ラベ ルフ ィ ー ル ド と ラベ ル 

ラベ ルフ ィ ー ル ド は 1 行 の 先頭 ( カラ ム 1 ) か ら は じ ま り ます 。 ラベ ル は そ 
の 行 に 対す る シン ボリ ッ ク な 名 で プロ グラ ム 内 か ら 参 照 が 可能 に な り ま す 。 ラ 
ベル は , アル ファ ベッ ト で は じ ま り 任意 数 の 英 数 字 を 用 いて 作り ます 。 た だ し 
ASSM は ラベ ル の は じ め の 5 文字 し か 識別 し な い の で 注意 が 必要 で す 。 

ラベ ル は 。, 空白 (プラ ンク 文字 ) で 区 切ら れ ま す が , 他 の アセ ンプ ブラ の よう 
に コロ ン ( : ) で 区 切る こと も で きま す 。 

8080 の レジ スタ 名 で ある A, B, C, D, E, H, し L, M, PSW, 
SP は ラベ ル と し て は 使え ませ ん 。 


3.2 オペ レー ショ ン フ ィ ー ル ド と オペ レー ショ ン 
オペ レー ショ ン フ ィ ー ル ド は ラベ ル に 少な く と も 1 つの 空白 を お いた カラ ム 
か ら は じ ま り ます 。 ラベ ル が な い 行 で は , 1 カラ ム 目 を 空白 と し て 2 カラ ム 目 
か ら は じ ま り ます 。 
オペ レー ショ ン と し て 用 いる の は , 8080 アセ ンプ リ 言 語 で 定め られ た ニー 
モニ ッ ク と , ASSM. COM で 使用 可能 な 擬似 オペ レー ショ ン で す 。 これ ら 
は 付表 や 4 章 に 述べ られ て いま す 。 


3.3 オペ ラン ド フ ィ ー ル ド と オペ ラン ド 
オペ ラン ド フ ィ ー ル ド は オペ レー ショ ン に 少な く と も 1 つの 空白 を お いた カ 


ラム か ら は じ ま り ます 。 
オペ ラン ド は 各 オ ペレ ーション の 対象 と な る も の で , 1 つの 場合 と 2 つの 場 
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合 が あり ます 。 オ ペラ ンド が 2 つ あ る 場合 は カン マ ' , ! で 区 切り ます 。 間 に 
空白 を 入れ て い は け ま せん 。 空白 は フィ ー ル ド の 区 切り な の で , その 空白 以後 
を 3.4 で 述べ る コメ ント フィ ー ル ド と し て 扱う か ら で す 。 

オペ ラン ド と し て 使用 する の は , 1. レジ スタ 名 , 2. ラベ ル 名 , 3. 定数 , 
本 : 民 な ど で す 。 


3.3.1 レジ スタ 名 


SA20595 と 2 で 0 は SRSOSOEODNAS BOD BE 頁 ) し, MSP, 
P SW が あり ます 。 BC, DE, HL と いっ た レジ スタ ペア 名 は , B, D, H 
で 表わし ます 。 


3.3.2 ラベ ル 名 


ラベ ル は , 同じ アロ グラ ム の 内 部 で 定義 され た 値 を 持っ て いま す 。 AS SM 
は その 値 を オペ ラン ド と し て 用 いま す 。 

特に 8 bit の 値 が 必要 な 時 は , ラベ ル の 値 が ー256 一 255 の 間 で な いと エ 
ラー と 0 まう 。 

特別 な ラベ ル の 1 つ に $ が あり ます 。 $ は その 行 現在 の 命令 カウ ンタ の 
内 容 で あり その 値 を オペ ラン ド と し て 使う こと が で きま す 。 


3.3.3 定数 

定数 と し て 使え る の は , 2 進数 8 進数 10 進数 16 進数 と いっ た 数 定数 
と ASC1 1 文字 列 で す 。 数 定数 は 0 一 9, AF か ら 作り 基数 を あら わす 文 
字 を つけ て あら わし ます 。 


文字 基数 使え る 数 字 
B 2 1 

Q, O 8 jc 

赤み 了 D 10 0 9 
H 16 0 や 典 て 


ぐ 注 ツ > ①⑪ 16 進 で ヘム ーF で は じ ま る 数 は , ラベ ル と の 区 別 の た めそ の 前 に 
0 を つけ ます 。 
⑫ 8 進 の O は 0 と 混同 する の で , Q を 用 いる べき で す 。 


ASCI1 文字 列 は , ' で 囲っ た 1 文字 また は 2 文字 で す 。 定数 に ' 自身 を 
含ま せる 場合 は '' と 2 つ 並 べ て ' 一 字 と し ます 。 2 バイ ト の ASC1 1 文字 
列 は , 8080 の 約 東 に 従い ,。 は じ め の 文字 を 低位 バイ ト , 2 番目 を 高位 バイ ト 
に 代入 し ます 。 


8 ビッ ト の 数 と し て 扱う 場合 , 定数 の 値 と し て 256 一 255 以 外 の 数 を 用 
いる と エラ ー と な り ま す 。 


3.3.4 式 


ラベ ル , 定数 な ど を 演算 子 で 結合 し た も の が 式 で , オペ ラン ド と し て 式 を 用 
いる こと も で きま す 。 演算 子 と し て は 以下 の も の を 用 い , 計算 は 2 の 補 数 で 行 
いま す 。 


六 算 子 
二 和 また は 正 数 を 表わす 。 
5 差 また は 負数 を 表わす 。 
メ 積 "を 表わす 。 
4 商 を 表わす 。 


3.3.5 上 位 バ イト 、 下 位 バ イト 


オペ ラン ド の 先頭 に ' く ' を つけ る こと で , 以後 で 得 た 数 の 上 位 バ イト の 値 
を 抽出 で きま す 。 ' ' は 下位 バイ ト を 抽出 し ます 。 
ぐ と > と は 単項 演算 子 で は な い の で 式 の 内 部 で 使っ て も 無効 で す 。 


3.4 コメ ント フィ ー ル ド と コメ ント 


コメ ント ( 注 息 ) フ ィ ー ル ド は , オペ ラン ド ( オ ペラ ンド の な い オ ペレ ー シ 
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ョ ン で は オペ レー ショ ン ) フ ィ ー ル ド か ら 少 な く と も 1 つの 空白 を あけ た フィ 
ー ル ド で す 。 プ ログ ラム の 注 は ここ に 書い て お きま す 。 

特に 第 1 カラ ム が ' ? ' または! ※ ' で は じ ま る 行 は 。 コメ ント と し て 扱わ 
れ ま す 。 


3.5 行 番号 


ASSM の ソー ス フ ァ イル は , 次 の よう な 場合 , 行 番号 付き ファ イル と し て 
扱わ れ ま す 。 そ れ は 1 一 4 カラ ム に , 0 一 9 の 数 字 に よる 番号 が あり , 5 カラ 
ム 目 が 空白 で ある 場合 で す 。 この 場合 , 含ま で 述べ た 各 フ ィ ー ル ド は すべ て 5 
カラ ム ず つ 右 へ ずれ る こと に な り ま す 。 し か し 行 番付 き の フ ェ ィ イ ル は ED. 
COM と は コン パチ ブル で は な く , ソー ス フ ァ イル が 大 きく な る の で あま り 勧 
め る こと は で きま せん 。 


3.6 レジ スタ 名 と その 値 


レジ スタ 名 の A,。 B, C, D, E, 古 , し , M, PSW, SP は , 実は それ 
WaM0ta2ESsPE5 * 65 っ 0566 と いう 値 本 持っ て や "ます 。 
これ ら を その 値 を も つ ラ ベル と し て 扱う こと , 逆 に レジ スタ 名 の か わり に 0 一 
7 の 値 を も つ ラ ベル や 定数 を 用 いる こと が で きま す 。 し か し 混乱 を 防ぐ た め に 
も これ ら は 勧め られ ませ ん 。 
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4・ 擬似 オペ レー ショ ン 


擬似 オペ レー ショ ン は アセ ンプ ラ を 機能 的 に 用 いる た め の も の で 次 の よう な 
も の が あり ます 。 こ こ で いう ぐ く 式 は , 定数 , ラベ ル ま た は , それ ら を +, 一, 
*,。 , な どの 演算 で 結ん だ も の を 示し ます 。 


4 .1 EQU 
ぐ lIabel > EQU ぐ 式 > 


ぐ 1labe1 に く 式 の 値 を 定義 し ます 。 ぐ 式 > の 値 は , その 時 点 で 確定 し 
て いる 必要 が あり ます 。 また 同一 の ラベ ル を 2 ケ所 で 定義 する こと は で きま せん 。 


4.2 ORG 
[ ぐ label>] ORG ぐ 式 > 


ぐ 式 > の 値 を 命令 カウ ンタ に 代入 し ます 。 以後 の 命令 は ぐ 式 ツ の メモ リ 番地 
以後 に 作ら れ て 行き ます 。 ぐ labe1 憲 は オプ ショ ン で す 。 
ぐ 注 ン ORG 命令 が な い 場 合 , オプ ジェ クト は CPM で 使用 する 100 H 
か ら 作 られ て 行き ます 。 


4.3 XEQ 
XEQ ぐ 式 > 
ぐ 式 > で 与え られ た メモ リ 番 地 か ら プ ログ ラム の 実行 を は じ め る こと を 指定 


し ます 。 ORG と 異な り , 命令 カウ ンタ の 値 は 変わ り ま せん 。 この 指示 は 
RUNA を 用 いる 時 に 有効 で す 。 


リン 


4.4 DS, RES 
[< く lIapel>] DS く 式 > 
[ ぐ Tfabel> ジ ] RRES で 式 ジ 


ぐ 式 > で 指定 し た バイ ト だ け 命 令 カ ウン タ を 進め て , その 領域 を プロ グラ ム 
で 用 いる た め に 確保 し て お きま す 。 


4.5 DB 
上 6 琶 織 0 テウ み ) 光 重 ) る 区 ま 本 肛 輝 。 。、 -] 


ご 式 > の 値 の 下位 8 ビット を (複数 の く 式 が ある 時 に は 次 々 と ) 命 令 カ ウ 
ンタ の 示す メモ リ に スト ア し て , メモ リ 内 容 の 初期 化 を 行い ます 。 必要 な 値 は 
1 バイト な の で ぐ 式 の 値 は ー256 一 255 の 間 で ある 必要 が あり ます 。 


4.6 DW 
[ ぐ <lIabel > ] DW く 式 > 


ご 式 > の 値 2 バイ ト を 命令 カウ ンタ の 示す メモ リ に スト ア し て , メモ リ の 初 
期 化 を し ます 。 8080 の 約 東 に 従い 下位 バイ ト , 上 位 バ イト の 順に スト ア し て 
行き ます 。 


4.7 DDB 
[<label>] DDB く 式 > 


< 式 > の 値 2 バイ ト を 命令 カウ ンタ の 示す メモ リ に スト ア し て メモ リ の 初期 
化 を し ます 。DW と 異 り 上 位 バ イト , 下位 バイ ト の 順に スト ア し て 行き ます 。 
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4.8 ASC ASCZ 


[ ぐ label] ASC 井 ASCII STRING 井 
[ ぐ label] ASCZ ASCII STRING 井 
命令 カウ ンタ 以後 に オペ ラン ド に 指定 し た 文字 列 を スト ア し て 行き ます 。 井 
は スト リン グ の 区 切り 文字 で , スト リン グ に 含ま れ て いな い 任 意 の 文字 が 使え 


ます 。 ASCZ で は 文字 列 の 後に 更に 00 を スト ア し ます 。 それ を 用 いて 文字 
列 の 区 切り を 示す こと が で きま す 。 


4.9 ASCF 
ASCF 0 また は ASCF 1 


DB また は ASC 命 令 の リス ト の 時 , ASCF 0 と し て お く と は じ め の 4 
バイ ト の 表示 を し て あと は 表示 し ませ ん 。 ASCF 1 と し て お け ば , すべ て 
の バイ ト が 表示 され ます 。 何 も 指定 し な いと ASCF 1 が 仮定 され ます 。 


4.10 IF < 式 > 


条件 アセ ンプ ル 機 能 で . < 式 > の 値 が 0 で な い 時 に は IF と ENDEF の 間 の 
文 の アセ ンプ ブル し ます 。 ぐ 式 が 0 の 時 に は , IE と ENDF の 間 の 文 は アセ 
ン ブ ル し ませ ん 。 


4.11 IFLS 


条件 アセ ンプ ブル で , ぐ 式 が 0 の 場合 , IF と ENDF の 間 は アセ ンプ ブル し 
ませ ん 。 そ れ ば か り で は な く , リス ト に も 出力 され ませ ん 。 IFLS 命 令 は , 
く 式 > が 0 で も リス ト に ソー スプ ログ ラム を 出力 させ る オプ ショ ン で す 。 
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4.12 COPY 
COPY ファ イル 名 


他 の ディ スク ファ イル を 読ん で , あたかも 1 つの ファ イル の アセ ン ブ ル の よ 
うに する 命令 で す 。 フ ァイル 名 の 拡張 子 は . ASM を 仮定 し て いま す 。 

注意 すべ きこ と は , COPY で 読み 込む ファ イル に COPY 命令 が あっ て は 
いけ な いこ と で す 。 

ファ イル 名 に は : で 区 切っ て ドラ イブ 名 を 付け る こと が で きま す 。 


4.13 NLST と LST 


NLST 命令 以後 の リス ト へ の 出力 を 停止 し ます 。 LST 命令 で リス ト へ の 
出力 を 再開 し ます 。 


4.14 TITL <1 行 目 YY < 行 目 > 


ASSM の 実行 時 に P オ プシ ョ ン を つけ る と , リス ト は ペー ジ ご と に 行なわ 
れ ま す が , この 命令 で 各 ペ ー ジ の 1 , 2 行 目 に 出 て くる タイ トル を セッ ト す る 
こと が で きま す 。 


4.15 PAGE 


ASSM の 実行 時 に P オ プシ ョ ン を つけ る と , リス ト は ペー ジ ご と に 行なわ 
れ ま す 。 PAGE 命令 は 強制 的 に 改 ペ ー ジ を させ る た め に 用 いま す 。 


4.16 END 


END 命令 は , ソー スプ ログ ラム の 終り を 示し ASSM は これ 以後 の アセ ン 
ブル を 行い ませ ん 。 し か し , ファ イル その も の の エン ド オ プ フ ァ イ ル で も アセ 
ンプ ブル を 終え る の で , END 命令 は あま り 用 いら れ ま せん 。 


ー 和 90 デ 


エフ ーー ビズ リー ンジ 
5.1 アセ ン ブ ラ 起動 時 の エラ ー 


アセ ンプ ラ を 実行 する 段階 や す オプ ショ ン を 解釈 する 段階 で エラ ー を 発見 する 
と , 次 の よう な メッ セー ジ を コン ソー ル に 出力 し て CP ン M シス テム に も どり 
F fc 


EXPECTED NAME 

AS SM で 指定 し た ファ イル が な い 。 
ILLEGAL OPTION 

ASSM で 指定 し た $ オ プシ ョ ン が お か し い 。 


91 ファ イル の 大 き さ が 大 きく な ら な い 。 一 ディ スク スペ ー ス の 不足 。 
92 ファ イル が 書け な い 。 一 ディス クス ペー ス の 不足 。 

93 ファ イル の オー プン が で き な い 。 

94 ディ レク トリ ー が 作れ な い 。 ーー ディ スク スペ ー ス の 不足 。 

95 ファ ィ ァイル が 見 つか ら な い 。 

96 ファ イル は すでに オー プン され て いる 。 

97 書か れ て いな い デ ー タ を 読も うと し て いる 。 


5.2 構文 上 の エラ ー 


実際 に アセ ンプ ル し て いる 間 に 発見 し た エラ ー は リス ト と エラ ー フ ァイル の 
両方 に 出力 され ます 。 フ マス 1 実行 中 で 発見 し た エラ ー は 再び パス 2 で も 出力 さ 
れる の で 注意 が 必要 で す 。 

オペ ラン ド に エラ ー が ある 場合 は . その オペ ラン ド に 対し て 0 が 与え られ ま 
す 。 オ ペレ ーション に エラ ー が ある 場合 は , 命令 の バイ ト 数 が 不定 な の で , 3 
バイ ト の 0 が 出力 され ます 。 


プ 重 あ ギ ニ 


エラ ー の 種類 は 1 文字 の エラ ー コ ー ド で 知る こと が で きま す 。 


エラ ー 
コー ド 
A 


意 味 
オペ ラン ド の エラ ー。 多く は , 数 定数 に 正しく な い 字 を 使っ た り , 
数 字 で は じ ま る ラベ ル を 使っ た 時 で , 時 に は , ASC '「'A''! 
と スト リン グ の デリ ミタ の 誤り な ど が あり ます 。 


ラベ ル の 二 重 定義 。 ASSM で は ラベ ル の 識別 を 最初 の 5 文字 で 
行っ て いる こと に 気 を つけ な く て は な り ま せん 。 


ラベ ルフ ィ ー ル ド に エラ ー が ある こと を 示し ます 。 例 えば 。 1 カ 
ラム 目 に 数 字 が ある も の な ど で す 。 


EQU 命 令 に ラベ ル が な い 時 に 起り ます 。 


オペ レー ショ ンコ ー ド の 誤 ま り で す 。 


レジ スタ 名 が 必要 な の に , それ が 正しく 与え られ て いま せん 。 


ASSM に は 全く 理解 で き な い 構 文 で す 。 


ラベ ル が 未定 義 で す 。 EQU, ORG, DS, RES, IF の ぐ 式 > 
は , 必ず 値 が 確定 し て いる こと が 必要 で す 。 


オペ ラン ド で 使う 数 の 範囲 と く 式 > の 値 が 正しく あり ませ ん 。 例 
えば , 8 ビッ ト の レジ スタ に は 一 256 一 255 の 数 し か 入れ る こ 
と は で きま せん 。 
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APPENDIX 2 
TABLE OF ASCII CODES (Zero Parity) 


Papcr apr UperOcul Ocuel Decimal Hrx Characier 


123 .4567P 
s 【 し し し り 0 0 0 crl@ NULL 
00O4 MI 1 01 crlA SOH Suan of Hcading 
s 0OIO 002 2 02 crlB STN Suan of Text 
0014 003 3 03 crlC ETN End of Text 
0020 ON 1 い 】 crlD EOT End of Xmit 
0024 0O5 ぅ 05 crlE ENO Enquiry 
0030 OM% 6 06 crIE AACK Acknowlcdgc 
さ 0034 007 7 07 crlG BEL Audible Signal 
の 0040 010 8 06 crlH BS Back Spacc 
< 00H OH 9 0⑩ cri エ HHT Horisontal Tab 
・ ゃ 0050 012 10 0A ceri LF Line Fzcd 
・ 0054 013 11 0B crlK VVT Verdcal Tab 
・" 0060 0!4 12 0C crlL FF Form Feed 
・ る 0064 015 13 0D ceriM CR CArnagc Return 
・ 0070 016 ド 】 OE crlN SO Shift Out 
・ 0074 017 15 OF criO Si Shift ln 
0100 020 16 10 criP DLE Dau Linc EsPc 
0104 021 17 1 crtO DCI X On 
O110 022 18 12 crIR DO Aux On 
0114 023 19 13 crlS DOG X Off 
0120 024 20 14 crlT DC4 Aux Off 


当 
に 】 
ーー 
に] 
] 
きま 
ご 
Pd 
と 
デ 


Ncgsuve Acknowlcdgc 
0130 026 22 16 crIV SSYN Synchronous Filc 
ETB End of Xmit Block 
0140 030 24 18 crlX CAN Cancel 
EM 
SUB 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 144 03 25 19 curl Y End of Mcdium 
| 0150 032 26 IA cl 錠 Substitute 
| 0154 033 7 1B crl[ ESC Excape 
|] Ol60 033 28 1C crIN FS File Separaor 
] 0O164 035 29 1D crl] CS Croup Separator 
| 0O170 036 30 IE cri^ RS Record Scparator 
| 0174 037 31 IF cwl _。 US Unit Separator 
きっ 間際 1 半生. 32 20 Spsce 
s 2 0204 04I 33 21 H 
ak 要 8 0210 042 34 22 し 
。 e | 0214 043 35 23 
。 * ゃ | 0220 0 36 24 $ 
*.。 e | 0224 045 37 25 % 
ee、。 e | 0230 06 38 26 g 
see、 e | 0234 047 39 27 0 
記 知 本 0240 050 40 28 ( 
-e e | 0243 05I 41 29 ) 
・? e | 0250 052 42 2A 3 
-e e | 0254 053 43 2B + 
<・e e | 0260 054 44 2C 和 
・e e | 0264 055 45 2D 
人 の 0270 056 46 2E < 
< e | 0274 057 47 2F / 
< | 0300 00 48 30 0 
8 | 9304 0ei 49 31 1 
| 0310 062 に リ 32 2 
の | 9314 063 5i 33 3 
| 0320 064 52 3 も 4 
| 0324 065 53 35 5 
| 0330 066 54 36 6 
| 0334 067 55 37 7 
| 0340 070 56 38 8 
| 0344 071 57 39 9 
| 0350 072 58 3A # 
| 9354 073 59 3B # 
| 0360 074 60 3C で 
| 0364 075 61 3D = 
| 9370 076 62 3E > 
| 0374 077 63 3F ? 


APPEM 2 
TABLE OF ASCII CODES :Conr'q) (Zero Parlty) 


Paprr apr UpperOcul Ocml Deemal Hex (haractcr 


123 .4567P 
| っ s | 0400 100 に 1) 40 @ 
| e R ゃ | 0401 101 65 41 A 
の * | 04i0 102 6 。 42 B 
1** * | 0414 103 67 43 C 
dk * | 0420 108 68 4 D 
|* * < | 0424 105 69 45 E 
| ** es | 0430 106 ?70 46 F 
| ゃ **. e 0434。 107 71 47 G 
| -* * | 0440 ii0 72 48 H 
の っ は で すさ 間 二 ま (111 73 49 ) 
| * -* <・| 0 2 74 。 4A  J 
1** < * 0454 113 15 4B K 
| *.* <・ | 0460 il4 726 中 4 で けし 
|1e *-* < | 046 115 77 4D M 
| ゃ ee < 明 0470 116 78 4E N 
|] ゃ ee.e 。 * | 0474 117 79 4F O 
| -* < | 0500 120 80 50 p 
| * ゃ e | 0503 121 8i 51 o 
| 竜介 0510 122 82 52 い 1 
| ** s e | 0514 123 83 53 S 
| *. < < | 0520 124 84 54 T 
1* *. * < 0524 125 8S 55 U 
RW で で きず ゃ | 0530 126 86 56 V 
|1**e。 < * | 0534 127 87 57 W 
| -*ey * | 0540 130 88 58 X 
|e 。 -** * | 0544 131 89 Ss9 Y 
| * < <。 | 0550 132 0 は SAESF る 
|1 ゃ ee ee * | 0554 133 91 5B 【 
| *.**・ <・ | 0560 134 92 。 SC \ 
1* ゃ ee * 0564 135 93 5D } 
| ゃ e.ese e 0570 136 93 SE コ 
leee.ee e 0574 137 95 SF 上 
| いっ: 他 電 0600 140 96 60 に 
1* . *s | 0604 141 97 61 a 
| * . ** | 0610 142 98 62 に ) 
le* . *e 0614 143 99 63 C 
| e. ee | 0620 4 100 61 に! 
1* *. *<。 | 0O624 145 lOl 65  e 
| *e.。 *e | 0630 14% 102 66 f 
| ec.  *e | 0634 147 103 67 9 
| -e ee | 0640 150 104 68 h 
|1e 。 -* <e | 064 15 105 69 3 
| * -* ee | 0650 1S2 106 6A | 
ee .* ee | 0654 153 107 6B K 
| es.e ee | 0660 154 106 6 あ 
|1* ee ee | 0664 155 109 。 6D に 1 
| * ゃ e.e se | 0670 156 110 6E n 
|eee.* ee | 0674 157 111 6F に 
| 9 | 9700 ie0 112 。 7270 P 
| | 9704 ie  、71 q 
| e | 0710 162 114 72 
| * | 0714 163 115 73 ] 
| ・ | 0720 164 16 。 74 に 
| | 0724 165 117 75 い 1 
| | 9730 le66 118 76 Y 
| | 9734 167 BI 仙 K 、 3 w 
| | 0740 170 120 78 X 
| | 0744 171 121 79 ト / 
| | 0750 172 122 7A 1 
| | 0754 173 123 7B { 
| | 0760 124 124 7C I 
| | 0764 175 125 7D 1 
| | 0770 176 126 7E キ Prefix 
| 電装 4 77 2 が 定 DEL Rubout 


APPENDTIX 3 


ASSEMBLER LTSTING 


時 2 3 ざ 
っ > し 【e) し Ke】 
2 AMy キキ 
め な る び る る 有 ダ 
ずみ @ の ず ず ざめ だ る 
ぐ S マ 2 492 6 生 ESS COMMENT 
0000 * 
0001 “SEARCH TABLE FOR NATCH TO STRING 
0002 “EACH TABLE BNTRY 1S FOLLOwED BY A TwO-BYTE DISPATCH ADDRESS . 
000 3 *TABLE HUST HAVE AT LEAST ONE ENTRY AND IS TERHINATED BY ム A 
0009 “ZERO BYTE. 
0005 “ON ENTRY: HL POINTS TO STRING 
0006 * DE POINTS TO TABLE 
0007 * C IS NUMHBER OF CHARACTERS IN TABLE ENTRIES 
0008 “ON hkETURN: ZERO FLAG SET IF NO HATCH。 ELSE DE POINTS TO 
0009 * DISPATCH ADDRESS 
0010 9 
0100 E5 0011 TSRCH PUSH H SAVE STRINC ADDRESS 
0101 A1 00 12 IOV BLC TNITIALIZE CHARACTER COUNT 
0102 1A 0013 TS1 LDAX D CONHPARE CHARACTERS 
0103 BE 001M CHP NM 
0104 C2 11 01 0015 JNZ TS3 
0107 23 0016 INX H CHARACTERS HATCH。 CO ON TO NEXT 
0109 13 0017 INX D 
0109 05 0018 DCR B 
010A C2 02 01 0019 JNZ TS1 
010DF6 01 0020 0RI 1 MATCHING ENTRY FOUND 
010F E1 0021 TSz POP H 
0110 C9 0022 RET 
0111 B7 002 ぅ TS3 ORA 「1 TEST FOR END OF TABLE 
0112 CA 0F 01 002M JZ TS2 
0115 13 0025 TSM INX D SKIP TO NEXT ENTRY 
0116 05 0026 DCR B 
0117 C2 15 01 0027 JNZ TSw 
011A 13 0026 INX D 
011B 13 0029 INX D 
011C E1 0030 POP H 
011D C3 00 01 0031 JMP TSRCH 
0032 * 
0033 “EXAMPLE OF TSRCH USE: 
003M * 
0035 “(ASSUKE nL POINTS TO A FOUR-CHARACTEN CONMAND STRING ) 
o120 11 35 01 0036 LXI D,CTABL DE POINTS TO COMHAND TABLE 
0123 0E 04 0037 MV1 CM TABLE ENTRIES ARE FOUR CHARACTERS LONG 
0125 CD 00 01 0039 CALL TSRCH 
0126 CA 00 00 U 0039 JZ ERRNOR COMHAND NOT IN TABLE 
0125 EB J040 XCHG a SET UP STACK FOR RETURN TO HAIN ROUTINE 
012C 11 00 00 U 00M1 LX】 D.CONMAND 
012P D5 00*2 PUSR Dp 
0130 7E 00M3 MDV AH D1SPATCH TO APPROPRIATE COMMAND ROUTINE 
0131 23 00wM INX | 
0132 66 0045 NOV HH.N 
0133 6F 00M6 MOV し 。A 
013M E9 0047 PCHL 
0046 * 
00M9 “COHhAND TABLE 
0050 * 
0135 3 MF MD 31 0051 CTABL ASC *COHN1' FIRST ENTRY 
0139 00 00 U 0052 Dw SUB1 ADDRESS OF SUB1 
013B 43 MF MD 32 005 ぅ 3 ASC *COH2* SECOND ENTRY 
013F 00 00 U 005M Dw SUB2 ADDRESS OF SUB2 
01M1 00 0055 DB 0 END OF TABLE HANK 


SYMBOL TABLE LISTING 


エ Labe1 Addr. Labe1 Addr. Labe1 Addr. Labe1 Adqdr. 


CTABL 0135 TS1 010z TS< 010F TS3 0111 
TSM 0115 TSRCh 0100 


キー 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 


APPENDIX 4 


This is a sample proqram. "The 1oader source code。 


まま まま まま まま る ミミ ええ ネ スネ ネネ スネ ネ ミネ ネネ ミミ スミ メ ネネ メス ミネ よ まさよ よる メオ 


RUNA Ei1e-name[ .ZCL] 


到 

到 

し 

寺 An .OBJ file consists of one or more segments tha 
の have the Format: 

夫 #BYTES DESCRI PTION 

証 2 Number of code and data bytes in 
2 Seqdment 

し 2 Load address of code and data 
コミ belonging to the、seqgment 。 
Variabl1e Code and/or data . 

到 

到 

し 

到 

し 


The run time package wi11 1oad each segment at th 
Specified address until1 a starting address is 
enCountered.。 A starting address is represented a 
1oad address with a zero byte count 。 


に まま まま まま まま まま まま えま る る スネ ネス ネネ ネネ ミネ メス ネネ ミネ ミネ ミネ ミネ ミミ ネネ ミミ ミミ ミネ ミス スミ ネネ スコ 
到 


RELOC EOU 0 : 4200H FOR TRS-80 MOD 1 
BDOS EOU 5+RELOC  :CP/M 

BLKSIZ EOU 128 

OFCB EOU 5CH+TRELOC  :IN CP/M 

OEX EOU OFCB+1 2 

OCR EOU OFCB+32 

OBUE EOU 80H+RELOC  :TIN CP/M 

表 


CSTART EQOU $S$ 

LXI SP,STK 

MVI C,OCH  :RETURN VERSION ま # 
CALL BDOS 

MOV AL 

ORA A 

JNZ VER2X 

LDA 4+RELOC  :CPM 1.4 DEFAULT DRIVE 
CPr 5 

JC SETDF 

XRA A 
SETDE EOU $  :11-30-81 FOR MP/M Ir 
STA ODRIVE  :DEFAULT DRIVE 

* GET OPTTIONS FROM TYPE FIELD 
LX1I H, 5CH+8 

MVI C,4 

NEXT EOU $ 

INX H 


ー3S8. 一 


0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 


DCR C 

JZ NOOPT IONS 
MOV A,M 
いま 

JZ NOOPTIONS 
PIT 3 あ 

JZ ZEROFIL 

に 

JZ COMEFILE 
CET '5* 

JZ NOEXEC 

* ERROR TLLEGAL OPTTION 
LXI H,MESGA 
CALL DISPLAY 
JMP O+RELOC 
* GET SITZE OF INSTRUCTION 
GETSZ LXI H,TBL-1 
AGAIN MOV A,C 
INX H 

MOV B,M 

ANA B 

JZ BYTE1 

INX H 

MOV B,M 

XRA B 

INX 日 

JNZ AGAIN 
MOV A,M 

RET 。 EXIPT 
BYTE1 MVI A,1 
RET 。 EXIPFT 
本 


REL EOU $S RELOCATION 
PUSH H 

PUSH D 

PUSH PSW 

INX HH 

MOV E,M 

INX H 

MOV A,M 

ORA A WE DON'T RELOCATE BELOW 100+RELOC 
JZ NOREL 

MOV D,A 

PUSH H 

LHLD BASE 

DAD D ADDRESS TS NOW ADJUSTED 
XCHG 

POP HH 

MOV M,D PUT IT BACK 
DCX H 

MOV M,E 
NOREL EQOU $ 

POP PSw 

POP D 


=: ゆ 科 キー 


0101 POP H 

0102 REP 

0H03 に ま 

0104 VER2X EOU $ 

0105 MVI C,19H  :GET CPM 2.X DEFAULT DRIVE 
0106 CALL BDOS 

0107  JMP SETDF 

0108 * 

0109 MESGA ASC "ILLEGAL OPTION" 
0110 DB 0ODH,O0AH 

0111 ASC "RUN Di:FILE.ZCL く CR>" 
0112 DB 0ODH,O0AH,0 

9 和 ま 昌 あ ) 

0114 "TBL DB -1,11101001B,1 
0115 DB -1,11001101B,3 

0116 DB 11000111B,11000100B,3 
0117 DB -1,11000011B, 3 

0118 DB 11000111B,11000010B,3 
0119 DB 11000111B,11000111B,1 
0120 DB -1,11001001B, 1 ユ 1 

0121 DB 11000111B,11000000B,1 
0122 DB 11001111B, 1, 3 

0123 DB 11100111B,00100010B, 3 
0124 DB 11110111B,11010011B, 2 
0125 DB 11000111B, 6,2 

0126 DB 2 11000110B,2 
本 須 2 が 19 呈 END OE TABLE 
0 則 久 絡ま 

0129 BASE DW 0 BASE ADJ TO ADD TO ADDRESS TO BE RELOCATED 
0130 START DW 0 STARTING ADDR OF RELOCATED CODE 
せ 19 

0132 ZEROFILL EQU $ 

0133 STA 2X 

0134  JMP NEXFT 

95 

0136 COMEILE EOU $ 

0137 STA CX 

0138 JMP NEXT 

9 お きき ま 

0140 NOEXEC EQOOU $ 

0141 STA LX 

0142  JMP NEXT 

0143 * 

0144 OSET EQOU $ 

0145  LXI D,OBOUF 

0146 MVI C,26  :SET DMA 

0147 CALL BDOS 

0148 LDA ODRIVE 

0149 MVI D,0 

0150 MOV E,A 

0151 MVI C,/14  :SET DRIVE 
0152 CALL BDOS 

0153  LXI D,OFCB 

0154 RET 


ーー 宇和 9 ミ ー 


015S 
い 156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 


、 う OPT TONS EQOO $S 

LXI H,080H+3+RELOC 

MOV A,M 

CPI ":'  :WAS DRIVE REQGUESTED? 
JNZ DEFDRIVE  :DEFAULT IS SET 
DCX H 

MOV A,M 

GE 「A* 

JC DEFDR IVE 

SUI !'Ar* 

STA ODRIVE 

DEFDRTVE EOU S 

CALL SETFCB 

MVI M。'OY 

INX H 

MVI M,'B'* 

INX H 

MVI M,' け * 

CALL OSET 

MVI C,15  :OPEN 

CALL BDOS 

PE ニ ユ 

JZ OERR  :OPEN ERROR 

XRA A 

STA OCR 
* RELOCATE CODE TO JUST BELOW CP/M 
LHLD 6+RELOC 

DCX H HIGHEST ADDR 

LXI B,LAST-LOADFILE SIZE OF CODE TO BE RELOCATED 
MOV A,L 

SUB C 

MOV L,A 

MOV A,H 

SBB B 

MOV H,A 
: HgL= STARTING ADDRESS 

SHLD START 


PUSH H 

LXT D,LOADE ILE 
MOV A,L 

SUB E 

MOV L,A 

MOV A,H 

SBB D 

MOV H,A 

SHLD BASE 

POP H 


LXI B,CONSTANTS-LOADFTLE SIZE OF INSTRUCTION MOVE 
XCHG 
NXTI EQOU $ 

PUSH H 

PUSH D 

PUSH B 


生ま 一 


0209 MOV C,M GET OPCODE 

0210 CALL GETSZ GET SIZE OF INSTRUCTION 
0211 POP B 

0212 POP D 

0213 PEOPH 

92 Cp -3 

0215 JC SKPREL 

0216 CALL REL RELOCATE ADDR IN THIS 3 BYTE INST 
0217 SKPREL EQOU $ 

0218 POSH B 

0219 POSH PSW 

0220 MOV C,A SIZE 

0221 NXTM EQU $ 

0222 MOV A,M 

0223 STAX D 

0224 INX H 

0225 INX D 

0226 DCR C 

0227  JNZ _ NXTM 

0228 POP PSW 

0229 POPB 

0230 NXTD EQU $ 

0231 DCX B 

0232 DCR A 

0233 JNZ NXTD 

0234 MOV A,C 

0235 ORA B 

0236  JNZ NXTI 

0237 * RELOCATE CONSTANTS 

0238  LXI B,LAST-CONSTANTS SIZE OF CONSTANTS 
0239 NXTC EOU $ 

0240 MOV A,M 

0241 STAX D 

0242 INXH 

0243 INX D 

0244 DCX B 

0245 MOV A,C 

0246 OR B 

0247  JNZ _NXTC 

0248  LHLD START 

0249 PCHL 。 CODE HAS BEEN RELOCATED NOW GO TO IT 
0 枯 

それ し た た ます る すえ オミ ミミ ミネ ネネ ミネ ネネ オオ オオ オオ ネオ オミ ネネ メオ メオ メオ ミネ メメ よ ミ メメ メメ メメ ミミ 】 
0252 * RUNA Ai:FILE.OBJ<CR> 

9 半 ち きき 

0254 * MOVE PARAMETERS AND CHECK 

0 レ た に 合え えま さえ ます えす えま ええ オミ オミ ミミ ミミ ミミ ミネ ミミ オオ ミミ ミミ ミオ メオ ミネ ミネ ミミ メメ ミオ ミミ ええ 】 
0256 * 

0257 LOADFILE EOU $ 

0258  LXI SP,STK SET STACK AFTER RELOCATION 
0259 LDA ZX ZERO FILL MEMORY? 

0260 ORA A 

0261 JZ2 SKPCLR 

0262  LXI D,LOADE TLE-1 


ー-142 一 


0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
02 91 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 


MVI H,1 STARTING ADDR  +RELOC 
MVI L,0 
CLEAR EOU $ 

XRA 
MOV M,A 

INX H 

MOV A,L 

SUB E 

MOV A,H 

SBB D 

JC CLEAR 
SKPCLR EOU $ 

CALL ORD  :GET 1ST RECORD OF .OBJ FILE 
OLOAD EQOU $ 

CALL GETOP 
MAO MOV A,M  :MOVE 4 BYTES FROM BUF TO WORK 
STAX D 

INX HH 

INX D 

DCR C 

CZ ORD 

DCR B 

JNZ MAO 

7 H&L = BUEFER C=COUNT 

XCHG 

LHLD OWRK  :SIZE OF NEXT READ 
MOV A,L 

ORA H 

JZ CLOSE 

SHLD OSIZE 

LHLD OWRK+2 

XCHG 
MAOA MOV A,M  :MOVE FROM BUE TO OBJ ADDR 
STAX D 

INX H 

INX D 

DCR C 

CZ ORD 

PUSH H 

LHLD OSIZE 

DCX H 

SHLD OSIZE 

MOV A,L 

ORA H 

POP H 

JNZ MAOA 

CALL SAVOP 

JMP OLOAD 

到 
GETOP EOU $S  :GET O POINTERS 
LXI D,OWRK 

LHLD OCBA  :BUE ADDR 

MVI B,4  :LENGTH OF WRK 

LDA OCBC  :BUE CNT 


トコ 


おま 32 一 


0317 
0318 
031.9 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
_ 0368 
0369 
0370 


MOV で C,/A 
RET 
* 


ORD EQOU $ 

PUSH B 

PUSH D  :OPNT 

LXI D,OFCB 

MVI C,20  :READ 
CALL BDOS 

POP D 

POP B 

ORA A 

JN2Z RERR 

LXI H,OBOUF 

MVI C,BLKSTIZ 

RET 
SAVOPB EQU $ 

SHLD OCBA  :BUFE ADDR 
MOV A,C 

STA OCBC  :BUE CNT 
LDA HIGH 

CMP D 

RNC 

MOV A,D 

STA HIGH 

RET 

衣 
CLOSE EQOU $ 

LXI D,OFCB 

MVI C,16  :CLOSE 
CaLL BDOS 

LDA CX 

ORA A 

JNZ GENCOM 

LDA LX 

ORA A 

JNZ O+RELOC LOAD BUT DON'T EXECUTE 
LHLD OWRK+2  :STARTTING ADDRESS 
PCHL 
SETFCB EQOU $ 

XRA A 

STA OFCB 

STA OCR 

LXI H,OEX 

MVI C,4 

EXLUP EOU $  :10-2-81 ZERO CPM EXT AREA 
MOV M,A 

INX H 

DCR C 

JN2Z EXLUP 

LX1I H,OBUF 

SHLD OCBA 


ー144 一 


0371 MVI A,BLKSIZ 

0372 STA OCBC 

0373  LXTI H,5CH+9+RELOC  :CP/M FILE TYPE 
0)74 RET 

0375 * 

0376 CREATE EQOU $ 

0377  LXI D,OFCB 

0378 MVI C,22 CREATE 

0379 CAaLL BDOS 

0380 CPI -1 

0381 RNZ 

0382 OERR EQU $ 

0383  LXTI H,MESGO OPEN ERROR 
0384 CALL DISPLAY 

0385  JMP OXT1 

0386 * 

0387 GENCOM EOU $S GENERATE .COM FILE 
0388 CALL SETFCB 

0389 MVI M。'C" 

0390 INX H 

0391 MVI NM,"O" 

0392 INXH 

0393 MVI M。"M'  .COM IN FCB 
0394 *OPEN 

0395  LXI D,OFCB 

0396 MVI C,15 OPEN .COM FILE 
0397 CALL BDOS 

0398 CPI -1 

0399 CZ CREATE 

0400 XRA A 

0401 STA OCR 

0402 *WRITE 

0403 LDA HIGH 

0404 DCR A 

0405 MOV H,A 

0406 MVI L,OFFH 

0407 SHLD SIZ  OE THIS WRITE 
0408 MVI D,1 STARTING ADDRESS +RELOC 
0409 MVI E,0 

0410  LXI H,OBUFE BUFEFEER ADDRESS 
0411 MVI C,BLKSIZ BUFFER SIZE 
0412 NXTW EQOU $ 

0413 LDAX D 

0414 MOV M,A 

0415 INX H 

0416 INX D 

0417 "DCR C BUEFE COUNT 

0418 CZ WRITE 

0419 PUSH H 

0420  LHLD SIZ 

0421 DCX H 

0422 SHLD SIZ 

0423 MOV A,L 

0424 ORA H 


ek > 


0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
04 51 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 


POP H 

JN2Z NXTW 

CALL WRITE LAST BLOCK 
* CLOSE 

LXI D,OFCB 

MVI C,16 CLOSE 

CALL BDOS 

JMP 0+RELOC 

衣 


WRITE EQOU $ 

BUSH D 

LXI D,OFCB 

MVI C,21 WRITE 
CALL BDOS 

POP D 

ORA A 

JNZ ERRW 

LXI H,OBUF 

MVI C,BLKSIZ 


デュ ミミ まる まる えま まえ まる まま まま まま まま まま まま まま る まま る まま る まま たま まま も また えす もし えす 】 


*SS DISPLAY A MESSAGE TO THE CONSOLE 

ENTRY HgL CONTAIN STARTING ADDRESS OF THE MESSAGE 
THE MESSAGE TEXT IS TERMINATED BY O HEX 
CALL DISPLAY 


四 還 まさ ミ スネ ネネ ネネ ミネ ネネ ミュ ミミオ え ミ ネネ ミミ ミネ ミミ ミミ まま る まる ええ まま る まる まえ まま る る る る える る 』 


人 


DISPLAY EOO $ 

MOV AzM 

ORA A 

RZ . EXTT TO CALLING ROUTINE ** 
MOV E,A 

MVI C,2 

POSH H 

CALL BDOS  :PUT THE CHAR TO THE CONSOLE 
PopP H 

INX H 

JMP DISPLAY 

し 

ERRwW EQOOU $ 

LXI H,MESGW WRITE ERROR 
CALL DISPLAY 

JMP OXT1 

夫 
RERR EQOO $ 

LXI H,MESGR READ ERROR 
CALL DISPLAY 
OXT1 EQOOU $ 

LXT H,OFCB+1  :FILE NAME 
CALL DISPLAY 

JMP 0+RELOC RETURN TO CP/M 


ナミ ミミ スス よさ る るる みな る る よみ ネネ まま ミネ ネネ ネネ スネ ミミ ミミ まま まま える る まる る まえ える る る える 


CONSTANTS EQU $ 


> ミー 


0479 
0480 
04 81 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 


HIGH DB 0 HIGHEST PAGE USED FOR .COM - 
2X DB 0 DEFAULT NO CLEAR :Z=ZERO FILL BEFORE LOADING 
CX DB 0 DEFAULT NO .COM :C=.COM FILE 

LX DB 0 DEFAULT EXECUTE :L=LOAD BUT NO EXECUTION 
ODRIVE DB 0 

OWRK DB 0,0,0,.0 

OCBA DW OBUE  :CURRENT BUEFER ADDRESS 

OCBC DB BLKSIZ  :CURRENT BUFFER COUNTER 

OSIZE DW 0  :SIZE OF NEXT OBJ BLOCK 

SIZ DW 0 SIZE OF COM FILE CODE 

MESGO ASC "OPEN ERROR " 


DB 0 

MESGR ASC "READ ERROR " 
DB 0 
MESGW ASC "WRITE ERROR " 
DB 0 

DS 30 

STK DB 'S* 

LAST DB 0 


1 キー 
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